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DISCLAIMER 



This program and its documentation have been contributed to the Program 
Information Department by an IBM employee and are provided by the IBM 
Corporation as part of its service to customers. The program and its 
documentation are essentially in the author's original form and have not 
been subjected to any formal testing, IBM makes no warranty expressed 
or implied as to the documentation, function, or performance of this 
program and the user of the program is expected to make the final 
evaluation as to the usefulness of the program in his own environment. 
There is no committed maintenance for the program. 

Questions concerning the use of the program should be directed to the 
author or other designated party. Any changes to the program will be 
announced in the appropriate Catalog of Programs; however, the changes 
will not be distributed automatically to users. When such an announce- 
ment occurs, users should order only the material (documentation, machine 
readable or both) as indicated in the appropriate Catalog of Programs, 
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ABSTRACT (PLEASE LIMIT TO 150 WORDS. DESCRIBE PROGRAM AND PURPOSE. CLEARLY IDENTIFY MACHINE CONFIGURATION AND SOURCE LANGUAGE.) 

APL is a conversational implementation of the Iverson notation, an 



i ^^.yf-.rp-TTiely concise mathematical notation with simple but rigorous syntax. This 



inncisR attribute virtually eliminates the -program- step in the -problem- , 



:5n1ving chain of problem- — al gorithm — program — solution. All operators of the 



inf-qt-inn^ Pf^itin g capabi li ties , and the capability to save and retrieve 



^nrk .qpace.c! a re provided. The implementation allows data to be structured as 



scalarSf vecto r s , a nd m a tr i ce s w i th up to 2 55 elemen t s in a ny dimension , 



Wnmori^ al ygliT'^S gri^ annnratP -hn six deci mal digit . q , and iden tifiers are up 



bo 6 a lrhab'=^<-i^ nh^iran tpr.c! . Tnpnt may come from the console typewriter^ card 



r^ad^r r>r- a typewrit er terminal. The program is independent of the IBM monito r 



^ r) r \ r^qu irp s a d<adi ciatpri disk cartridge. Facilities are provided to generate 



bhe syst'=^ mf ass i g n and delete work sp a ce s , a nd dump/restore i nd i v i dua l work- 



spaces and their- functions to cards. 
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Minimum configuration is 1131-2B and 1442 or 2501. A 2741 
terminal and requisite RPQ are highly desirable. APL/1130 
is written in 1130 Assembler Language. 
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DECK KEY 



For 1442 loading 

Load card; 

"rivileged user load card: 

IPL sector deck: 



APL system deck: 



Einptv Directories deck: 



fiPUPL 
AELIPLPR 

First card unsequenced 

NeKt 8 cards 1442I£)00-1442ID07 

Next 5 cards IPIiOOOOO-IPL00004 

First card unsequenced 

Nect 8 cards 1442LD00-1442I£)07 

Next 438 cards M'L00000-APL00437 

First card unsequenced 

Next 8 cards 1442U300-1442LD07 

Next 9 cards DIR00000-DIR00008 



Par 2501 loading 

Idaitical to the decks above, exc^it that the first 9 cards of 
each deck are to be renoved and replaced hy: 

First card unsequenced 
Next 14 cards 2501IDOO-250m3l3 
(Three copies of this deck are included for user insertion^ see 
OPEBATXSP INSTRtKnONS page 13.2) 



TOTRL NUMBER OF CARDS 526 



TAT^ KEY (OPTirMftL MRTERTMJ 



1. The tane supplied as,optional material, contains card images, blocked 
20 cards per block. Ihe tape is unlabeled. There is 1 file on the 
tape, preceeded by a single tape raark. Two tape narks follow the 

end of the file,^ 

2. Data stored includes a complete 1130 job stream (including all 
required control cards necessary to assanble the s^'stan under 
Manitor II) . 

3. The tane vias created by the Systan 360 DEBE pcogram. It may be 
dunped back to cards ty the same program or any appropriate 
tape to card utility program. 



S%ia^?2Sl:L?*Ji§J^WE"Jb' "^ FORWARDED ONLY WHEN 



USER INFORMATION KEY 



The following items of interest may be found where indicated: 

Purpose: See Preface 

Advantages: See Preface 

Restrictions and range: See page 56 

Precision; See page 56 

Program requirements: See Operating Instructions 

System configuration: See page 20 

Timing: Response to trivial operations is within 2 seconds. 
Other responses are proportional to the amount of 
computation required. 

Program modification aids: None provided. 

Input and output description: See page 24 and page 45 

Sample problem: See Appendix A, page 93 



PREFACE 



APL\1130 is a single- user implementation on a smaller 
machine of the APL\360 conversational terminal system that 
has been operating within IBM since the Fall of 1966. 
Conceived as an experimental system for exploring certain 
aspects of computer science, its purpose required that it 
operate under a realistic load in an environment that was 
not artificially constrained. To this end, the members of 
the IBM Research staff, and others, were encouraged to learn 
the APL language and use the APL system. It was not 
anticipated that it would have the impact that it did: 

In twenty months of regularly scheduled operation, 
clocking well over 100,000 terminal-hours of use, the 
availability of APL\360 has materially changed the 
computing habits of the Research organization. 

Heavy users of batch processing have turned to APL for 
on-line development of their algorithms. 

Many laboratory data reduction chores formerly done by 
batch operation or desk calculator are now executed in 
a timely way at local terminals, using locally written, 
stored APL programs. 

Automatic collection of experimental data has, in many 
instances, been put on-line to APL. 

Routine correspondence and technical papers are 
prepared at terminals, with the help of text-handling 
programs written in APL. 

Many professional staff members who formerly were 
indifferent to, or actively resisted, the use of 
computers, have become steady users of the APL system. 



In addition to IBM Research personnel, use of the 
system was offered to other locations within the IBM 
Company, and it was also used experimentally in elementary 
and secondary schools and in universities. The general 
findings may be summarized as follows: 

Although APL is easy for a beginner to learn, 
non-programmers (as well as programmers) often develop 
an interest in sophisticated use of the language, 
because of its analytical power and mathematical 
structure. 



The primitive array operations of APL make it a good 
language for scientific problems, text handling, and 
general data processing, because arrays are fundamental 
to all of these applications. 

The use of a powerful, readily accessible computational 
facility can materially change the quality and 
orientation of an academic course. 

Other things being equal, acceptance of conversational 
computing as a general mode of operation is strongly 
dependent upon its reliability and availability — 
regularly scheduled hours are essential, and the more 
the better, including nights and weekends. 



APL terminal systems are characterized by the following: 
Siit5>le, uniform rules of syntax 

Use of common symbols for the ordinary arithmetic 
operations 

Free-form decimal input 

A large set of primitive operators 

Use of defined functions (programs) with the same 
facility and syntactic variety as primitive operators 

Fast response 

A library structure built around workspaces that hold 
both programs and data 

An immediate-execution mode completely free of 
irrelevant keywords 

A comprehensive, integrated set of system commands for 
managing workspaces and libraries, and for other 
essential functions """st 

Three levels of security; account numbers, workspaces, 
and programs can be individually locked against Sse or 

IttlfL ^^t^^V"^ between hard copy and transmitted 
entries, which ensures reproducibility of results 

Succinct diagnostic reports 



HSH rslsaas. This is the second release of APL\1130. It 
embodies a number of new features which are described in 
detail in the APL\1130 User's Manual. They include: 

1. Six-character identifiers. 

2. Labels. 

3. Extended function editing. 

4. Card control commands for reading and punching 
cards . 

5. Provision for connecting a remote 2741 terminal. 

6. A dynamic method of localizing names as described 
in the section on Homonyms. 

7. A new command )SIV to display the state indicator 
together with the list of local variables for each 
halted function. 

8. A system of locks and keys for security of account 
numbers and workspaces. 

9. The signum function (denoted by x) has been added. 

10. The following changes in notation have been made: 

Hew notation Keglaces 



)EBASE F 

)SI 

TLF 



7FV 
)i 



11. A set of COPY commands permits the copying of all 
or part of one workspace into another. 



Inatructional use. APL\1130 is well suited for use by 
secondary schools for instructional purposes. In iimnediate 
execution mode, APL\1130 executes each line as the student 
types it and replies before he types the following line. 
This give-and-take between student and computer enhances 
student involvement and augments the educational process. 
Function definition mode enables a student to build and 
store functions for later use which become a framework for 
the subject matter. 



APL\1130 is suitable not only for student 
problem-solving in science and mathematics courses, but also 
for drill and exercise in a programmed-teaching mode. The 
system provides a formal method of function definition and a 
method of saving data and programs from session to session. 
APL also facilitates individual student experimentation; the 
student may draw from his own experience and library of 
functions or from a library of commonly used programs 
maintained by an instructor. 

Under normal circumstances, it is difficult for a 
teacher to be able to provide adequate instruction for all 
the levels of student achievement represented in one 
classroom. APL\1130 can help accommodate the! individual 
differences present in several ways. First, the computer 
system can provide drill and exercise for those students who 
require more practice in problems than the instructor can 
provide. Secondly, APL\1130 provides unlimited opportunity 
for individual experimentation and exploration for the 
above-average student; a gifted child no longer need be 
inhibited by the requirements of his classmates. Finally, 
APL\1130 can be used by teachers to prepare numerical 
examples which would otherwise require tedious 
time-consuming hand calculations. 

In addition, the following features of APL\1130 are of 
particular significance in instructional use: 

1. Since APL is simple and concise and is closely 
related to the ordinary notation of algebra, a 
student's attention can be devoted almost entirely to 
solving the problem, rather than being diverted by 
Irrelevant details of a computer. 

2. Basic APL operators are single characters. Economy 
of symbols is gained by using each symbol as both a 
monadic and dyadic operator, just as a minus sign is 
used in ordinary arithmetic. 

3. APL provides standard operators to perform common 
functions which in other languages must be programmed. 
For example, polynomial evaluation, random number 
generation, summation, matrix multiplication jmd 
permutation may each be done using a few APL 
characters . 



4. APL handles collections of data cis easily as 
individual items. For exaii^le, the volumes of five 
different cylinders may be calculated simultaneously by 
the same function used to calculate the volume of one. 



5. Numbers used in APL are normally in familiar 
decimal form. Powers of 10 can be written using 
exponential or scientific notation, i.e., 1400000 can 
be written 1.4E6 or .14E7. Therefore, representation 
of very large or very small numbers is facilitated. 

However, operators are provided to facilitate use 
of number systems other than base 10. This facility 
conforms to the modem mathematics curriculum used in 
many schools. 

6. APL avoids the use of complex function hierarchy 
rules. The order of execution of an expression is 
determined first by the placement of parentheses and 
otherwise by one simple rule — each operator works on 
everything to its right. For example, in the 
expression 17 * 2 + 3, the i has as its denominator 
2+3. The entire expression may be read as 17 divided 
by the siam 2 + 3. 

7. Correction of errors discovered before a statement 
is entered into the computer is simple. The system 
provides "visual fidelity" acting upon exactly what 
appears on the printed page, regardless of the order of 
entry. The printed record therefore makes clear 
exactly what was acted upon by the computer. This is 
importcuit for later review and explanation by a 
teacher. 

8. Error messages are concise and indicate to the 
student not only the type of error he has committed, 
but also where the error was made. Resumption of work 
from the point of error is simple. 

9- APL\1130 provides a simple means for function 
definition. Special purpose operations needed for a 
particular problem may be easily defined by the student 
or by the teacher for use by the entire class. 

10. APL\1130 provides an extensive library capability; 
each user can maintain a personal library where he may 
store and later retrieve programs, and also has the 
opportunity to use functions defined in other 
libraries. 



11. APL\1130 incorporates card control oonmands which 
provide for punching APL functions and data on cards 
and for reading APL commands and statements from cards 
so punched, or from cards prepared on a separate 
keypunch. 



OPERATING INSTRUCTIONS 



This manual contains information required by those who 
manage and maintain an APL\1130 system. It is not needed by 
those who simply intend to use APL\1130. Part 1 of the 
User' s Manual should also be consulted. 

GENERATING THE SYSTEM 

APL\1130 is written in 1130 Assembler Language and runs 
on a dedicated disk. It is independent of any other 1130 
programming systems. To generate an APL\1130 system on a 
disk pack: 

1. Initialize the disk, using either the Disk Pack 
Initialization Routine (DPIR) distributed with Version 
1 of the Disk Monitor System or the Disk Cartridge 
Initialization Program (DCIP) distributed with Version 
2. 



2. Select the appropriate 
the 1442 or 2501. 



card decks for loading from 



3. Place the IPL Sector deck in the card reader. 
Press START on the card reader and IMMEDIATE STOP, 
RESET and PROGRAM LOAD at the console. After the last 
card has left the hopper, press START on the card 
reader and PROGRAM START at the console so that the 
last card will be processed. Do not follow the deck 
with blank cards. Perform the last card procedure 
S53Stly as described. 

4. Repeat step 3 with the APL System deck. 

5. Repeat step 3 with the Eitpty Directories deck. 



The APL system should now be ready for the first 
Initial Program Load, as described in the next section. 

The APL System deck can be reloaded by itself if the 
system is destroyed or when a new release of APL\1130 is 
made. To do so, just repeat step 4. User enrollments and 
saved workspaces will be intact. 
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INITIAL PROGRAM LOAD 



When the 1130 system is first turned on or when an APL 
disk has just been placed in the disk drive, an 
iBiiisl Exoaisro LQai procedure is needed to make the APL 
system operative. Two Initial Program Load cards are 
provided for this, one labeled APLIPL (for general use) and 
one labeled APLIPLPR (for "privileged" use - this card 
allows the use of the system maintenance coimands by the 
first person who signs on) . 



The Initial Program Load Procedure is given 
of the User's Manual. 



in Part 1 



When an APL disk has been freshly generated, the first 
Initial Program Load should be performed with the privileged 
load card and the operator should sign on using the number 
0. This allows him to assign the first users to the system. 
The number need not be used after the first sign-on; 
additional users can be assigned at any time by a privileged 
user. 



USE OF CONSOLE SWITCHES 

Console switches and 1 select the input device from 
which the next sign-on will be accepted. They may be set at 
any time and take effect at the next sign-on attempt, as 
follows: 

Switch down, switch 1 down: The 1131 is the APL 
terminal device. Typed input will be accepted from the 
console keyboard. 



Switch down, 
terminal device, 
card reader, as 
previously. 



switch 1 up: The 1131 is the APL 
Card input will be accepted from the 
if a )CAED coiranand had been obeyed 



Switch up: The 2741 is the APL terminal device. 
Typed input will be accepted from the 2741. Switch 1 
is ignored, and card input will be accepted only upon 
execution of a )CARD command. 
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SYSTEM MAINTENANCE COMMANDS 

The system maintenance commands are intended for the 
use of those responsible for maintaining the APL\1130 
system; they are not for general use. For that reason, 
they are available only to a privileged user, i.e., the 
first user to sign on after a "privileged" IPL. They allow 
for the assigning of workspaces to users, the removal of 
users who will no longer use the system, and the printing of 
information about the current state of the APL system. 

) ASSIGN N USES NAME ILOCKl 

Assign user N (N is between 1 and 65535) another 
workspace (which may be his first) and call him USERNAME. 
The lock (a colon followed by a password; see discussion of 
locks and keys in the User's Manual) is optional. For 

example, )ASSIGN 3141 JSMITH or )ASSIGN 31i*l JSMITH-.LCl 

Srouble rgeorts: 

SYSTEM FULL - All disk space has been assigned. 

INCORRECT COMMAND 

) EXPUNGE N 

Remove user number N from the system, along with all of 
his workspaces, freeing the space to be assigned to other 
us ers . 



If Qufele reports : 

NUMBER NOT IN SYSTEM - An attempt has ^ 

expunge a non-existent account number. '" 

INCORRECT COMMAND 



been made to 



)PBOPLE 

List all the users in the system, giving for each user 
his usemame, his account number, and the number of times he 
has signed on. 

Irsuble reports: 

INCORRECT COMMAND 
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) SPACES 

List all the workspaces in the system, classified under 
the users to whom they belong. 

INCORRECT COMMAND 

)DROP WSID 

This command has the same effect as the non-privileged 
)DROP command described in the Oser's Manual, except that 
the WSID may contain any account number, and that using it 
during a privileged sign-on decreases by one the number of 
workspaces allotted to the account number (unless it has 
only one workspace) . 



Sample Typewriter Output 



)0 

SIGNED ON 

APL\1130 
) ASSIGN 10 TEACHER 
) AS SIGN 10 TEACHER 
)ASSiaN 1 STUDENPA 
)ASSIGN 2 STUDENTS 
)OFF 

SIGNED OFF 



)100 
TEACHER SIGNED ON 



APL\1130 



Only when new system generated 

is user number used 

User no. 100 named Teacher assigned 

to system with two workspaces . 

Users nos . 1 and 2 named Student 

A & B assigned to system with one 

workspace each. 

After every sign off system in 

student mode. 

User no. 100 named Teacher signs on. 

Performs some work 
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)SAVE WORK 
WORK SAVED 
)OFF 

SIGNED OFF 

)3 
NUMBER NOT lit SYSTEM 

)1 
STUDENTA SIGNED ON 



APL\1130 



Saves workspace 



User named Teacher signs off. 
User no. 3 tries to sign on, but 
has not been assigned to system. 
User no. 1 signs on 

Performs work 



)SAVE SOMEWHERE 
SOMEWHERE SAVED 
) CLEAR 



)SAVB THIS 
WS RATION EXCEEDED 

)LIB 
SOMEWHERE 

)DROP SOMEWHERE 
SOMEWHERE DROPPED 

)LIB 



Saves workspace Somewhere. 

Loads clean workspace 
Performs more work 

Tries to save This, but has already 
used the one space he was assigned. 
Lists his workspaces. 

Drops previously saved Somewhere. 



)SAVE THIS 
THIS SAVED 

)LIB 
THIS 

)OFF 
SinnED OFF 



Lists again - there are no more 
saved workspaces. Now can save This. 



Lists saved workspaces. This is saved. 
Signs off , System now waiting 
for another student to sign on. 
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SEG 3 




SEG 4 



6 Card Loader 



SEG 1 



SEG 2 



(Supplied by the user and 
not part of the distributed 
program decks) 



APL SYSTEM LOAD 

Notes : 

1. SEG 1t-SEG 4 are loaded separately (see operating Instructions) . 

2. SEG 1 is only required to clear the disk. It may be omitted 
in rebuilding a pack. 

3. SEG 4 (APL BLANK DIRECTORIES) may be omitted in rebuilding 
a pack where : 

a, former workspaces and/or functions are to be preserved. 

b, former directories are known to be unchanged. 



APL\1130: User's Manual 
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K. E. Iverson 
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PART 1 



GAINING ACCESS 



The APL\1130 system en5>loys the APL language described 
in Part 3 and the system commands described in Part 2. It 
is operated either from the 1131 console or from an 
auxiliary 2741 terminal. This part of the manual describes 
the procedures for beginning and ending a work session. 



The following physical equipment 
operation of APL\1130: 



is required for the 



or more of core storage and a 



1442 card read/pvmch wired for 



An 1131 CPU with 8K 
built-in disk drive. 

A 2501 card reader or 
Initial Program Load. 

An APL typing element #1167988. 

Recommended, but not required, is a 2741 terminal and 
an IBM 1130 Communications Channel Adapter (RPQ W16427) with 
data- phone or IBM 4-wire modem, and 2 741 interrupt feature. 
With the 2501 reader a 1442 punch is required for the )PCH 
and )PCHS commands but is not otherwise needed. 

THE APL CHARACTER SET 

The APL character set is shown in two arrangements in 
Figure 1.1; the first is appropriate to the 2741 terminal, 
and the second to the 1131 console. On the 2741 terminal, 
the numerals, alphabetic characters, and punctuation marks 
appear in their usual places, although the alphabet is used 
in only a single case: letters print as upper-case italics, 
but are produced only when the keyboard is in lower-case 
position (i.e., not shifted). 

The special characters, most of which are produced with 
the keyboard shifted, generally have some mnemonic 
connection with their alphabetic or numeric correspondents. 
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REL 




1 2 


< < 

3 4 


5 


> 

6 


> 

7 


9i V A 
8 9 


+ 


• 

X 


BACK 
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SET 
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LOCK 
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F 
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) 


SHIFT 


c 
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D 
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n 
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ATTN 



ON 



OFF 



2741 APL KEYBOARD 
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APL KEYBOARD STICKERS 

Keyboard Part Number 

2741 X20-1783-0 

1131 X20-1784-0 



1131 APL CONSOLE KEYBOARD 



Figure 1.1 
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This may be appearance (lo over W) , Greek-Roman equivalence 
(p over R) , sequence (<< = >>» over 345678), or 
some — possibly farfetched — relationship between the APL 
function represented by the symbol and the letter (* over P 
for power, ' over K for "kwote", and r over S for ceiling). 

Because of the smaller number of keys available, the 
1131 console uses a three-case system, also shown in Figure 
1.1. The currently active case is indicated by the left and 
right halves of the ACCUMULATOR and ACCUMULATOR EXTENSION 
lights in the manner shown in Figure 1.2. 

The two keys at the upper left control the cases, the 
arrows on the keys indicating the transitions (from the 
active case to the new active case) initiated by striking 
them. If the shift is in either upper or middle case but 
not locked (as indicated by the lights), it remains in that 
case for the next character only, and then returns to lower 
case. 

If the shift is in either the upper or middle case but 
not locked, it may be locked in that state by a further 
depression of the shift key which brought it to that state. 
If the shift is locked in upper or middle case, it remains 
in that state until returned to lower case by the action of 
the appropriate shift key or by a carrier return. The 1131 
Alpha/Numeric shift must remain in Alpha shift at all times. 

For the console printer, the APL character set is 
provided by printing element #1167988. A particular 2741 
terminal may use either the #1167988 element (for terminals 
using PTTC/BCD printing elements) or the #1167987 element 
(for terminals using Selectric printing elements) . 

However, any printing element may be used with the APL 
system, since the encoded characters generated by the 
keyboard and transmitted to the computer are independent of 
the particular element mounted on the terminal. Subject to 
programmed intervention, the transmitted information will 
always be interpreted according to the APL keyboard 
characters . 



oooooooo 



oooooooo 



oooooooo 
oooooooo 



oooooooo 
oooooooo 



LOWER SHIFT 
UPPER SHIFT 

MIDDLE SHIFT 

LOCKED 
UPPER SHIFT 

LOCKED 
MIDDLE SHIFT 



Figure 1.2: 



SHIFT CONDITION SIGNALS 
FOR 1130 KEYBQMtD 



Non-APL printing e 
conjunction with special 
exploit their character 
matches the keyboard enco 
terminal can be used fo 
since letters and digits 
The visual interpretation 
course, awkward with any 



lements are frequently useful in 
purpose APL programs designed to 
sets. Also, any element that 

ding (Selectric or PTTC/BCD) of the 

r straightforward numerical work, 
print properly with such elements, 
of complex APL expressions is, of 

but ein APL printing element. 
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STARTING THE SYSTEM 

To start the APL system, turn the 1130 on, load the APL 
disk, mount the APL typing element (#1167988), and perform 
an Initial Program Load as follows; 

1. Set console entry switch down if the first 
sign-on is to come from the console keyboard, up if it 
is to come from the 2741 keyboard. Set all other 
console switches down. 

2. Place the APLIPL card (APL initial program load) in 
the hopper. 

3. Press IMMEDIATE STOP, RESET, and PROGRAM LOAD at 
the console. 

The system will then be ready for the first sign-on. 

STARTING AND ENDING A WORK SESSION 

This section describes the procedures for beginning and 
ending a work session; more detail is given in Part 2. 

The following procedures apply to operations from 
either the console keyboard or from a 2741 terminal. In the 
case of the 2741, a connection must first be established in 
the manner described in the succeeding section. 

Communication With the oonputer is carried on by means 
of entries from the console keyboard (or auxiliary 2 741 
terminal) , which alternately locks and unlocks as each entry 
is made and the computer completes its work. The general 
procedure is to type an instruction or command and strike 
the carrier return to indicate the end of the message. 

Each user is assigned an account number. This number 
is used in the sign-on that begins a work session and serves 
to partially identify any work that the user may store in 
the system. 

To begin a session, enter a right parenthesis followed 
by the appropriate account number, followed by a carrier 
return. For exanple: 

)581 

The account number may include a key (i.e., a colon and 
a password). For example: 

)5ei:ABC 



If the foregoing is properly executed and if the 
account number has previously been entered into the system 
(as described in the operator's manual), the computer will 
respond by typing the name associated with the account 
number, followed by SIGNED ON and the name of the system, 
e.g.: 

SMITH SIGNED ON 

APL\1130 

If the sign-on is incorrect, one of the following 
trouble reports will be given: 

INCORRECT SIGN-ON means that the form of the command 
was faulty. 

NUMBER NOT IN SYSTEM means either exactly what it says 
or that the number has a look associated with it and 
the wrong key was used. 

INCORRECT COMMAND means that some account number is 
already signed on. Sign off, then execute the 
foregoing again. 

To end a terminal session, enter the command: 

)OFF 

The computer will respond by typing: 

SIGNED OFF 

In the remainder of this manual the need for carrier 
return will not be explicitly mentioned, since it is 
required for every entry. 

Mistakes. Before the carrier return that completes an 
entry, errors in typing can be corrected as follows: 
backspace to the point of error and then depress the 
linefeed button (marked ATTN on 2741 terminals and INT REQ 
on the 1131 console) . This will have the effect of erasing 
everything to the right of, and including, the position of 
the carrier. The corrected text can be continued from that 
point on the new line. 



If the keyboard of a 2 741 terminal (either 
direct-connected or telephone-connected) simply unlocks 
after the carrier return in an attempted sign-on, repeat the 
sign-on procedure. 
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CONNECTING A 2741 TERMINAL 

The directions that follow assume the use of a dial-up 
connection with a dataset. Instructions for the use of 
acoustic couplers should be obtained from their suppliers. 
Where terminals are connected to the computer by leased 
lines or private wires, instructions on dialing procedure 
(EC2) are irrelevant, but local sources of information 
should be consulted for equivalent procedures. 



ACTION 



NOTES 



iSii. Set ug terminal: 
Insert paper, mount an APL 
printing element , connect 
terminal to power source, 
and set switches as follows: 



LCL/COM 
Power 



COM 
ON 



Test to see if the keyboard 
is locked by trying the 
shift key. if the key is 
operable, press the carrier 
return and test again. 



SQix. Bial seraBUter: 
Set the telephone pushbutton 
switch to TALK and follow 
ordinary dialing procedure. 
After two rings, at most, 
the telephone will respond 
with a steady, high-pitched 
tone. 



The power switch is at the 
right of the keyboard; the 
LCL/COM switch is on the 
left side of the terminal 
stand, toward the rear. 

If the keyboard does not 
lock after a carrier return, 
check the switches and try 
once more. if the switches 
are set properly and the 
keyboard remains unlocked, 
the terminal is faulty. 

The telephone number is 
given in Table 1.3. If the 
line is busy, call the APL 
Operator to inquire about 
the schedule. 



123 456-7890 

Insert the access 

telephone number here. 

An assistance nundacr 

should be included. 

APL Operator: 123 456-7899 



Table 1.3: TELEPHONE NUMBERS 
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Promptly set the pushbutton 
switch to DATA by holding 
the DATA button down firmly 
for a moment and then 
releasing. 

Cradle the handset. 



RgSESasg: The keyboard will 
unlock, indicating that the 
computer is ready to accept 
an entry from the terminal. 



The DATA button should 
light, and will remain lit 
as long as the terminal is 
connected to the computer. 
If it does not light, check 
the power connection to the 
dataset. If it lights, but 
quickly goes out, check the 
power connection to the 
terminal, the cable 
connection to the dataset, 
and the switch settings on 
the terminal. Then retry 
from ECl. 



l£ans!Sl§siSn er£2rs. There are occasional transient 
failures in the communication between a terminal and the 
central computer. If the failure occurs during the 
transmission from the terminal, the system will respond by 
typing RES BSD. The last entry from the keyboard should then 
be repeated. 

Failures in the other direction are usually evidenced 
by the appearance of a spurious character, whose presence in 
the printed out?)ut is obvious in most contexts. However, 
there is no absolutely certain way of detecting such a 
failure. 

LIMITED USE OF THE SYSTEM 

No system commands other than the sign-on and sign-off 
described here are required in order to make use of Part 3, 
and the reading of Part 2 may therefore be deferred if only 
casual or restricted use is to be made of the system. 
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PART 2 
SYSTEM COMMANDS 



APL operations deal with transformations of abstract 
objects, such as numbers and symbols, whose practical 
significance, as is usual in mathematics, depends upon the 
(arbitrary) interpretation placed upon them. System 
conmianas in the APL\1130 System, on the other hand, have as 
their subject the structures which comprise the system, and 
control functions and information relating to the state of 
the system, and therefore have an immediate practical 
significance independent of any interpretation by the user. 

In this Part the structure of the APL\1130 system is 
described, and various notions essential to the 
understanding of system commands are introduced. Finally, 
the complete set of system commands is described in detail. 



WORKSPACES AND LIBRARIES 

Workspaces. The common organizational unit in the APL\1130 
system is the workspace. When in use, a workspace is said 
to be active, and it occupies a block of working storage in 
the central computer. The size of the block, which is 
preset at a fixed value for a given system, determines the 
combined working and storage capacity of each workspace in 
that system. Part of each workspace is set aside to serve 
the internal workings of the system, and the remainder is 
used, as required, for storing items of information and for 
containing transient information generated in the course of 
a computation. 

An active workspace is always present when the system 
is signed on. All transactions with the system are mediated 
by it. The names of variables (data items) and 
^§fiS§d functions (programs) used in calculations always 
refer to objects known by those names in the active 
workspace, and information on the progress of program 
execution is maintained in the state indicator of the active 
workspace. 
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Libraries. Inactive workspaces are stored in libraries, 
where they are identified by arbitrary names. They occupy 
space in secondary storage facilities of the central 
conputer and cannot be worked with directly. When required, 
copies of stored workspaces can be made active, or selected 
information may be copied from them into an active 
workspace. 

Libraries are associated with individual users of the 
system, and are identified by the user's account number. 
Access to them by other users is restricted in that one user 
may not store workspaces in another person's library. 
However, one user may activate a copy of another user's 
(unlocked) workspace if he knows the library number and 
workspace name. 



NAMES 

Names of workspaces, functions and variables may be 
formed of any sequence of alphabetic (4 to Z) and numeric (0 
to 9) characters that starts with an alphabetic and contains 
no blank. However, workspace names may not exceed 11 
characters in length, and other names may not exceed six. 

The environment in which APL operations take place is 
bounded by the active workspace. Hence, the same name may 
be used to designate different objects (i.e., functions, or 
variables) in different workspaces, without interference. 
Also, since workspaces themselves are never the subject of 
APL operations, but only of system commands, it is possible 
for a workspace to have the same name as an object it holds. 
However, the objects within a workspace must have distinct 
names, except as explained below. 

JiSSSi §S^ 2i°fe§l §i3Sif i£§SS§ • I" ^s execution of defined 
functions it is often necessary to work with intermediate 
results which have no significance either before or after 
the function is used. To avoid cluttering the workspace 
with a multitude of variables introduced for such transient 
purposes, and to allow greater freedom in the choice of 
names, the function definition process (see Part 3) provides 
a facility for designating certain variables as local to the 
function being defined. Variables not so designated, and 
all functions, are said to be global. 

A local variable may have the same name as a global 
object, and any number of variables local to different 
functions may have the same name. 
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During the execution of a defined function, a local 
variable will supersede a function or global variable of the 
same name, temporarily excluding it from use. If the 
execution of a function is interrupted (leaving it either 
suspended, or EfS§§55' ^^^ Part 3), the local variables 
retain their dominant position, during the execution of 
subsequent APL operations, until such time as the halted 
function is completed. System commands, however, continue 
to reference the global homonyms of local variables under 
these circumstances. 



LOCKS AND KEYS 

Stored workspaces and the information they hold can be 
protected against unauthorized use by associating a lock, 
comprising a colon and a ESSsword of the user's choice, with 
the name of the workspace, when the workspace is stored. In 
order to activate a locked workspace or copy any information 
it contains, a colon and the password must again be used, as 
a key, in conjunction with the workspace name. Listings of 
workspace names never give the keys, and do not overtly 
indicate the existence of a lock. 

Account numbers can be similarly protected by locks and 
keys, to avoid their unauthorized use and maintain the 
integrity of a user's private library. 

Passwords for locks and keys may be formed of any 
sequence of alphabetic and numeric characters up to six 
characters long, without blanks. In use as either a look or 
key, a password follows the number or name it is protecting, 
from which it is set off by a colon. 



ATTENTION 

Printed output at a terminal can be cut off , or the 
execution of an APL operation can be interrupted, and 
control returned to the user, by means of an attention 
iiaaal. Since the keyboard is looked during printing or 
computing, the signal must be generated by means other than 
one of the standard keys. 

The attention signal is generated by depressing the 
appropriate key once, firmly. On IBM 2741 terminals this 
key is usually of a distinctive color, and is marked ATTN; 
it is marked INT REQ on the 1131 console keyboard. (The 
same key is used for linefeed when the keyboard is not 
locked. ) 
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Following an attention signal the keyboard will unlock, 
and the type carrier will return to the normal position for 
input (six spaces from the left margin) . In some cases a 
line will be printed before the keyboard unlocks, telling 
where a function in progress was interrupted. 

Except for card control commands, the execution of 
system commands, once entered, cannot be interrupted. 



USE OF SYSTEM COMMANDS 

System commands and APL operations are distinguished 
fUQStionally by the fact that system commands can be called 
for only by individual entries from the keyboard, and cannot 
be executed dynamically as part of a defined function. They 
are distinguished in form by the requirement that system 
commands be prefixed by a right parenthesis, which is a 
syntactically invalid construction in APL. 

All system commands can be executed when the terminal 
is in the execution mQde, in which APL operations are 
executed forthwith upon entry. However, in definition moge, 
in which sequences of operations are being composed into 
functions for later execution, commands which call for 
storing a copy of the workspace, or which might otherwise 
interfere with the definition process itself, are forbidden. 
(The two terminal modes are treated more fully in Part 3.) 

Classification of commands . System commands are 
conveniently grouped into five classes with regard to their 
effect upon the state of the system: 



!• Terminal control commands affect the 
terminal to the system. 



relation of a 



2. Workspace csntrol commands affect the state of the 
active workspace. 

3- library csQtrol commcinds affect the state of the 
libraries. 



*• ±B91ji£X commands provide information 
affecting the state of the system. 



without 



5< S3£d ssntrol commands allow the reading of APL 
statements from cards rather than the keyboard, and 
the punching of variables and functions into cards for 
later use. 
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Reference and Purpose 

COMMAND FORM 1. 2.' NORMAL RESPONSE TROUBLE REPORTS* 



TCI Sign on designated user and start a work session. 

)NUMBER [KEY] USER SIGNED ON; SYSTEM 1 8 

TC2 End work session. 

)OFF [LOCK] SIGNED OFF 11 



WCl Activate a clear workspace. 

) CLEAR 11 

WC2 Activate a copy of a stored workspace. 

)LOAD WSID [KEY] WSID LOADED 9 11 

WC3 Copy global objects from a stored workspace. 

)COPY WSID [KEY] NAMES 2 4 7 9 10 11 

WC3a Copy all global objects from a stored workspace. 

)COPY WSID [KEY] 2 7 9 10 11 

WC4 Copy global objects from a stored workspace, protecting active ws. 

)PCOPI WSID [KEY] NAMES 2 4 7 9 10 11 

WC4a Copy all global objects from a stored workspace, protecting active ws. 

)PCOPY WSID [KEY] ' 2 7 9 10 11 

WC5 Erase global objects. 

) ERASE NAME[S] 3 11 



LCI Store a copy of the active workspace. 

)SAVE WSID [LOCK] WSID SAVED 5 6 7 11 

LC2 Erase a stored workspace. 

)DROP WSID WSID DROPPED 9 11 



IQl List names of defined functions. 

)FNS FUNCTION NAMES 11 

IQ2 List names of global variables. 

)VARS VARIABLE NAMES 11 

IQ3 List halted functions (state indicator) . 

)SI SEQUENCE OF HALTED FUNCTIONS 11 

IQ4 List halted functions with local names (augmented state indicator) . 

)SIV SEQUENCE OF HALTED FUNCTIONS WITH LOCAL NAMES 11 

IQ5 Give identification of active workspace. 

)WSID WSID 11 

IQ6 List names of stored workspaces. 

}LIB [NUMBER] NAMES OF STORED WORKSPACES 8 11 

CDl Initiate reading of cards.* "" ~ 

)CARD [[NO] EDIT] [[NO]DISP] 
CDla Continue reading cards but set edit and display options.* 

)CARD [[NO] ED IT] [[NO]DISP] 
CD2 Stop reading cards and return control to the keyboard.* 

)CARD END 
CD2a Run cards through to a stop' and return control to the keyboard.* 

)CARD END 
CDS Punch cards for global objects in the active workspace. 

)PCH NAMES 
CD3a Punch cards for all global objects in the active workspace. 

)PCH 
CD4 Punch cards for global objects in a stored workspace. 

)PCHS WSID [KEY] NAMES 
CD4a Punch cards for all global objects in a stored workspace. 

)PCHS WSID [KEY] 
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11 






11 






11 


4 


7 


11 




7 


11 


7 


9 


11 


7 


9 


11 



Notes: 1. Items in brackets are optional. 

2. KEY or LOCK: a password preceded by a colon. 

3. WSID: library number and workspace name, or workspace name alone. 

4. CDl and CD2a are from the keyboard; CDla and CD2 are from cards. 

5. A stop is an attention signal, or a card with )CARD END or )OFF. 

6. Trouble report forms: 

1 INCORRECT SIGN ON 7 NOT WITH OPEN DEFN 

2 NOT COPIED NAMES 8 NUMBER NOT IN SYSTEM 

3 NOT ERASED NAMES 9 WS NOT FOUND 
A NOT FOUND NAMES 10 A^5 FULL 
5 NOT SAVED WS IS WSID 11 INCORRECT COMMAND 

6 NOT SAVED WS QUOTA USED UP 

32 
Table 2.1: SYSTEM COMMANDS 



The text that follows is based upon this 
classification, although it will be seen that one of the 
library control commands may sometimes affect the state of 
the active workspace. 

NQSnal resEQUses and trouble reports. Any entry starting 
with a right parenthesis will be interpreted by the system 
as an attempt to execute a system command. When the command 
IS successfully executed, the nonnal response, if any, will 
be printed. This response is given in the description of 
the action for each command. 



If, 
executed. 
The most 
that the 
modifier, 
in every 
meanings 
are given 
command. 



for any reason, a command cannot be completely 

an appropriate trouble report will be printed. 

common report is INCORRECT COMMAND. This means 

command was incomplete, mis-spelled, used a wrong 

or was otherwise malformed. The corrective action 

case is to enter a properly composed command. The 

and corrective actions for other trouble reports 

in the notes accompanying the description of each 



gunimary. The purposes, forms, responses, and trouble 
reports for all system comnands are summarized in Table 2.1. 

In general, the elements of a command form must be 
separated by one (or more) spaces. Spaces are not required 
immediately following the right parenthesis, or on either 
side of the colon used with passwords, but can be used 
without harm. 
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TERMINAL CONTROL COMMANDS 

There is one command for starting, and one command for 
ending, a work session. The starting command has been 
described in Part 1. 



ACTION 

SSii Start a work session; 
This is the sign-on, 
described in Part 1. 



NOTES 

See Part 1, Starting 
Ending A Work Session. 



and 



2S2i End work session: 
Enter )OFF 

followed by a colon and a 
password, if desired. 



Effect ! 

1. The currently active 

workspace will vanish. 



There is no effect on any 
stored workspace. 



2. The password, if used, 
will become a new lock on 
the account number. 



Once applied, a lock stays 
in effect until explicitly 
changed by an ending command 
that contains a colon. 



An existing lock is removed 
if no password follows the 
colon. 



Response : 

i. SIGNED OFF 



If a colon is not used, the 
existing lock, if any, 
remains in force. 

5£°y^i§ £e2ort: 

INCORRECT COMMAND 
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WORKSPACE CONTROL COMMANDS 

The commands in this class can replace the active 
workspace with a clear one, or with a copy of a stored 
workspace; bring together in the active workspace 
information from many stored workspaces; and remove unwanted 
objects from the active workspace. No ooitmand in this class 
affects any but the active workspace. 

ABBUcatisQ gackaggg. The usefulness of a terminal system 
is enhanced by the availability of many different 
collections of functions and variables, each of which is 
organized to satisfy the computational needs of some area of 
work; for example, standard statistical calculations, 
exercises for teaching a scholastic subject, complex 
arithmetic, business accounting, text editing, etc. The 
workspace-centered organization of APL\1130 lends itself to 
such packaging, because each collection moves as a coherent 
unit when the workspace containing it is stored or 
activated. 

The copy commands provide a convenient way to assemble 
packages from components in different workspaces. 

lafiaSBStion transfer between HQrkspaces. Information 
entered or developed within one workspace can be made 
available within another by means of the cqey and 
EEOtecting-copy commands, which reproduce within the active 
workspace objects from a stored workspace. These are two 
sets of parallel commands which differ only in their 
treatment of an object in the active workspace which has the 
same name as an object being reproduced: the copy commands 
will replace the existing object, whereas the 
protecting-copy commands will not make the replacement. 

A copy command of either type can be applied to an 
entire workspace, or to a selection of objects (i.e., 
functions or variables) from it. When an entire workspace 
is copied, all the functions and global variables within it 
are subject to the operation, but its state indicator and 
local variables are left behind. 
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BStailgS Description. The term workspace identification is 
used here to mean either a library number followed by a 
workspace name, or a workspace name alone. When a name is 
used alone, the reference is to the user' s private library. 
A key is a colon followed by a password. 



ACTION 



NOTES 



WClj. Activate 
wQEJSSgace : 
Enter ) CLEAR, 



clear 



Effect: 

1. A clear workspace will be 
activated, replacing the 
presently active workspace. 



This command is used to make 
a fresh start, discarding 
whatever is in the active 
workspace. 



A clear workspace has no 
variables or defined 
functions. 

Its workspace identification 
does not match that of any 
stored workspace. (See 
section on library control). 



Response: None. 



Trouble report: 

INCORRECT COMMAND 



5iS2». Activate a copy of a 
stored workspace: 
Enter" )Io3c 

followed by a space and a 
workspace identification 
(with the key, if required). 



This command may be used to 
obtain the use of any 
workspace in the system 
whose identification (cuid 
password) is known. 



ilfect: 

1. A copy of the designated 
workspace will be activated, 
replacing the presently 
active workspace. 

Response : 

1. The workspace name, 

followed Ijy LOADED, is 

printed. 



2E2!3^i§ £§E2£ts: 
WS NOT FOUND 

means either that there is 
no stored workspace with the 
given identification, or 
that no key, or the wrong 
key, was used when one was 
required. 



INCORRECT COMMAND 
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5?S3-. S2EY 9iofe§i o^iects 
f£2!B 5 stored workspace: 
Enter )C0Py 

followed by a space and a 
workspace identification 
(with the key, if required) , 
and the names of objects to 
be copied, separated by 
spaces. 

Effect; 

1. A copy of each designated 
object will aK>ear in the 
active workspace with global 
significance, replacing 
existing global homonyms. 

SSSBSSSS : None . 



A global object may be a 
function or global variable. 



Objects having the same neune 
as a halted function in the 
active workspace cannot be 
copied. 



Trouble regorts : 

HOT wiTE opeiTdefs 

means that the terminal is 

in definition mode. Either 

close the definition by 

entering 7, or defer the 

copy operation. 



US SOT FOUNV 

See HC2 Cor aeKaincf. 

NOT COPIED 

followed by the nanes of 
objects not copied, means 
those names were the nanes 
of halted functions in the 
active workspace. 

NOT FOUND 

followed by the names of 
objects not found, meems 
that those names were not 
the names of global objects 
in the designated workspace. 

WS PULL 

means that the active 
workspace could not contain 
all the material requested. 

INCORRECT COMMAND 
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WCaSi COEy all global 

SklSS^s from a stored 

SSilSspace; 
Enter )cdPY 

followed by a space and a 
workspace identification 

(with the key, if required) . 

Sffect: 

1. A copy of all functions 
and global variables in the 
source workspace will appear 
in the active workspace with 
global significance, 
replacing existing global 
homonyms . 



See note at WC3. 



Local variables and the 
state indicator are not 
copied. 



ggsEonse: None. 



?EO!ifeie regorts: 

NOT WITH OPEN DEFN 

NOT COPIED 

US FULL 

See WC3 for meanings. 

IfS NOT FOUND 

See HC2 for meaning. 

INCOHRECT COmtABD 



MCii. ssBx aio&ai obigcts 

£t3M 3 I^asgd Jigrksgice, 
E£atecti|i3 il^B active 

Enter )PCOPY 

followed by a space and a 

workspace identification 

(with the key, if required) , 

and the nanes of objects to 

be copied, separated by 

spaces. 



See note at HC3. 



S££fic£: 

1. A copy of each designated 

object will appear in the 

active workspaoe unless 

there is an existing global 

homonym. 
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RegEonse : 

1. SOT COPIED, followed by 

the names of objects not 

copied, will be printed if 

appropriate. 



Trouble reports; 

NOT WITH OPEN DEFN 

NOT POUND 

IfS FULL 

See WC3 for meanings. 



WS NOT FOUND 

See WC2 for meaning. 

INCORRECT COMMAND 



WC4aj. CopY all global 
2fei§££§ from a stored 
workspace , E£S£§5ii?13 £lJ§ 
active workspace: 
Enter )PCOPY 

followed by a space and a 
workspace identification 
(with the key, if required). 

Effects 

I7~ A copy of all global 
objects in the source 
workspace which do not have 
global homonyms in the 
active workspace will appear 
in the active workspace. 

Response: 

i7~ ffOT~CO PI £23, followed by 

the names of objects not 

copied, will be printed if 

appropriate. 



See note at WC3. 



See note at WC3a, Effect 1. 



NOt'hITH open DEFN 

WS FULL 

See WC3 for meanings. 

WS NOT FOUND 

See WC2 for meaning. 



INCORRECT COMMAND 
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WC5i Erase global objects: 

Entsr"ERASE 

followed by a space and the 

names of objects to be 

deleted, separated by 

spaces. 

Effect: 

l7 Named objects having 
global significance, other 
than pendent functions, will 
be expunged. 

RESPONSE: None. 



Names which do aot refer to 
global objects are ignored. 



Trouble report: 

NOT ERASED 

followed by the names of 

functions not erased, means 

those functions are pendent. 



INCORRECT COMMAND 



LIBRARY CONTROL COMMANDS 

There are two basic operations performed by the 
commands in this class. The save command causes a copy of 
an active workspace to be stored in a library, and the gsSB 
command causes such a stored copy to be destroyed. 

The save command and the load commemd are symmetric, in 
the sense that a load command destroys an active workspace 
by replacing it with a copy of a stored workspace, while a 
save comnand may destroy a stored workspace by replacing it 
with a copy of the active workspace. 

SSBtinuit^ S£. werk. When a workspace is stored, an exact 
copy of the active workspace is made, including the state 
indicator and intermediate results from the partial 
execution of halted functions. These functions can be 
restarted without loss of continuity (see Part 3) , which 
permits considerable flexibility in planning use of the 
system. For example, lengthy calculations do not have to be 
completed at one terminal session; student work can be 
conducted over a -series of short work periods, to suit class 
schedules; and mathematical experimentation or the 
exploration of system models can be done over long periods 
of time, at the investigator's convenience. 
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WQCkSEaSS identification. A library number and a name, 
together, uniquely identify each stored workspace in the 
system. An active workspace is also identified by a library 
number and a name, and as copies of stored workspaces are 
activated, or copies of the active workspace are stored, the 
identification of the active workspace may change according 
to the following rules: 

1. A workspace activated from a library assumes the 
identification of its source. 

2. When a copy of the active workspace is stored, the 
active workspace assumes the identification assigned to 
the stored copy. 

3. A clear workspace activated by a clear command or a 
sign-on, is called CLEAR US, which cannot be the name 
of a stored workspace. 

The identification of active workspaces is used as a 
safeguard against the inadvertent replacement of a stored 
workspace by an unrelated one: an attempt to replace, by a 
copy of the active workspace, any stored workspace other 
than the one with the same identification, will be stopped. 



lifeE^Ey and account nuinbers. A user's account 
also the number of his private library. 



number is 



Each stored workspace has implicitly associated with it 
the account number signed on at the terminal from which the 
save command was entered, and may not be either replaced or 
erased, except from a terminal signed on with the same 
account number. Thus, a user is prevented from affecting 
the state of another user's private library. He may, of 
course, activate a copy of any workspace stored in the 
system, if he knows the library number and name (and 
password, if required) . 

§fe2?S3e allotment. A user of APL\1130 is assigned library 
space in terms of the maximum number of stored workspaces he 
may have at one time. The allotment for each user is 
determined by those responsible for the general management 
of a particular system, within the bounds of the physical 
resources of the system. 

ElUZgiog S Horkspace. The sequence of commands, 
)SAVE ABC123, )CLEAR, )COPI ABC123, will purge the active 
workspace, clearing it of all but its functions and global 
variables. This often results in more usable space than can 
otherwise be realized. 



fietailed Description. The term workspace idenSifisation 
will be used with the same significance as for the workspace 
control commands. 
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ACTIQN 

iQiM. StQSS a copy of ^e 

SStive Horkspace: 

Enter )SAVE 

followed by a space and a 

workspace identification, 

with a colon and password, 

if desired. 



NOTES 



Effect: 

1. A copy of the active 
workspace will be stored 
with the designated 
identification, and with the 
assigned lock, if a password 
was used. 



2. The active workspace 
will assume the workspace 
identification used in the 
command. 



A stored workspace with the 
same identification will be 
replaced. 

A lock on a stored workspace 
will not be retained if the 
command does not include a 
lock explicitly. 

To this extent only, this 
command may affect the state 
of the active workspace. 



Respgnse : 

1. The workspace name, 

followed by SAVED, will be 

printed. 



lESUfele reports: 

NOT WITH dPBN~DEFN 

means that the terminal is 

in function definition mode. 

Either close the definition 

by entering 7, or defer the 

save operation. 



NOT SAVED US QUOTA USED UP 
means that the allotted 
number of stored workspaces 
has previously been reached. 
Unless this is increased, 
the workspace can be stored 
only by first dropping a 
workspace already stored. 

NOT SAVED US IS 
followed by identification 
of the active workspace, 
means a stored workspace 
with the identification used 
in- the comnand exists, but 
this identification does not 
match that of the active 
workspace. 

INCORRECT COMMAND 
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feSSi Erase a stored worJc 

SB§S§ ' 

Enter )DROP 

followed by a space and a 

workspace identification. 

Effect: 

1. The designated stored 

workspace will be expunged. 



Since a key is not used, a 
locked workspace whose key 
has been lost can always be 
removed from the system. 



This command has no effect 
on the active workspace, 
regardless of its 
identification. 



Response : 

1. The workspace name, 

followed by DROPPED, will be 

printed. 



Trouble reports: 

WS NOT FOUND 

means that there is no 

stored workspace with the 

identification used in the 

connnand. 



INQUIRY COMMANDS 



INCORRECT COMMAND 



Most of the commands in this class refer to the state 
of the active workspace. One command lists the names of 
workspaces stored in libraries. 



BS^SlitS BesoriBtion. 
ACTION 



NOTES 



IQii. liist names of defined 
functions : 
Enter )FNS 

Effect: None. 



Be sponge: 

1. The names of defined 
functions in the active 
workspace will be printed. 



lE2Sfeis report 

INCORRECT COMMAND 
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IQ2i liist names of global 
variable^ ; 
Enter )VARS 



Effect: None. 

Response: 

1. The names of global 
variables in the active 
workspace will be printed. 



Trouble report 

INCORRECT COMMAND 



iQIs. List halted fjjnctions: 
inter )SI 

Effgct: None. 



RgSgonse : 

1. The names of halted 
functions will be listed, 
most recent ones first. 
With each name will be given 
the line number on which 
execution stopped. Suspend- 
ed functions will be 
distinguished from pendent 
functions by an asterisk. 

IQii. IiiS£ b5i£§^ f!J5Sti°hs 
with S§5§i °f lo^Si 
variables ; 
Enter )SIV 



This display is the 

state iS^icatgr; its 

significance and use is 
explained in Part 3. 

Trouble report 

INCORRECT COMMAND 



Labels (see Part 3) are 
included among the local 
variables. 



Effect: None. 



Response: 

1. The response will be the 
same as for IQ3, except that 
with each fvinotion listed 
there will appear a listing 
of its local variables. 



Trouble regort 

INCORRECT COMMAND 



I25i Give identification of 
3Stiye workspace: 
Enter )WSID 



Effect: 



None. 



Response : 

1. The identification of the 

active workspace will be 

printed. 



Trouble report 

INCORRECT COMMAND 
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IQi^ List nanjes of stored 
WQlJSSBacss : ~ . 

Enter )LIB 

followed, if necessary, by a 
library number. 

BffgSt: None. 

1. The names of workspaces 
in the designated library 
will be printed. If no 
number was used, the account 
number associated with the 
terminal will be taken as 
the library number. 



A library number is not 
required for listings of the 
user's private library. 



l£2!Jble rgEori 

NUMBER NOT IN SYSTEM 
means exactly that. 

INCORRECT COMMAND 



CARD CONTROL COMMflNDS 

The commands in this class provide for the use of 
punched cards. They allow the user tos 

1. Prepare APL statements and system commands on an 
029 keypunch for future entry to APL\1130, using the 
)CASD and )CARD END commands. 

2. Have the APL system punch copies of variables and 
functions into cards for later use, using the )PCH and 
)PCHS commands. 

E£§ESring API, statgmSDta 20 Sards. statements for input to 
the APL\1130 system may be punched into cards in free format 
in columns 1-71. If a statement is too long to fit onto one 
card, any non-blank character can be punched in column 72 to 
indicate that the statement continues on the next card. 
Columns 73-80 are ignored when the cards are being read, and 
can be used for identification or sequence numbers. They 
are so used by the punch commands, which place the name of 
the variable or function in columns 73-78, and the sequence 
numbers for that name in columns 79 and 80. 

A list of APL characters and their keypunch equivalents 
is given in Table 2.2. All the letters and digits and many 
of the APL operators (e.g., +, /, ?, =) are available as 
single characters on the keypunch. The symbols -f, [, ], i, 
X, and - are represented on the keypunch by substitute 
characters, e.g., *■ is represented by #. 



APL 029 Card Code' 


APL 029 Card Codel 


A-Z A-Z 


V laOR 


• 8-5 


A @AND 


0-9 0-9 


@NOT 


- (Note 2) 


1 @BASE 


. 


T @REP 


( ( 12-8-5 


e @EPS 


) ) 11-8-5 


X @IOTA 


C $ 


p @RHO 


] i 12-8-2 


t / 


; ; 11-8-6 


/ / 


# 8-3 


/ @CCMP 


-<■ @G0 


\ @REXP 


->■ @GOTO 


^ 9CEXP 


+ + 12-8-6 


+ @TAKE 


11-8-7 


+ @DROP 


X a 12 


(t> @RROT 


i % 0-8-1* 


* aRREV 


* ll-8-l( 


e gCROT 


a QLOG 


e aCREV 


? ? 0-8-7 


^ STRAN 


! ! 11-8-2 


A 9DELTA 


L I3MIN 


9NULL 


L 9FL00R 


D @QUAD 


r @MAX 


□ 9QQ 


r acEiL 


V ODEFN 


1 1 12-8-7 


9 SLOCK 


@TRIG 


: : 8-2 


< < 12-8-it 


0-8-5 


< SLEQ 


@LH 


8-6 


3 @RH 


> OGEQ 


n @CAP 


> > 0-8-6 


u lacup 


* aNEQ 




Note 1. APL\1130 accepts 029 keypunch codes. 


Card codes are given here only for those 


which are not directly available on 026 


keypunches, or for which some keypunches 


use different codes. 


Note 2. This is the negative sign, used in 


numeric constants. 



Table 2.2: Mnemonics and card codes for the 
APL character set. 
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For other non-alphanumeric characters a system of 
mnemonic names is used. These mnemonics always consist of 
an at-sign (9) followed by a string of letters designed to 
suggest the name or use of the symbol. Thus the mnemonic 
for p is @RHO, the mnemonic for r can be either @MAX or 
SCEIL, and so on. Mnemonics may be used in APL statements 
in exactly the way the corresponding symbols would be used, 
except that a blank must be left at the end of the mnemonic. 
For instance, the statement N■^pQ could be punched in a card 
as N+@RHO Q. 

Detailed descrxEtionj^ The term stop is used here to mean 
the occurrence of a card punched with )CARD END or )OFF, or 
an attention signal, while cards are being read. 



ACTION 



NOTES 



CDlj. Initiate EeadiSa of 

cards. 

Enter )CARD 

followed, if desired, by one 

of each of the pairs: EDIT 

or NOEDIT, DISP or NODISP. 



iffect: 

1. The keyboard will look. 

2. The system will accept 
instructions from the card 
reader until a stop occurs 
or an error is encountered. 



This command enables the 
system to accept APL 
statements and system 
coimiands from the card 
reader, rather than from the 
keyboard. All statements 
and conmands except )PCH and 
)PCHS may be executed from 
both sources. 



If EDIT has been specified, 
the keyboard unlocks 
immediately when an error 
occurs or an attention 
signal is given. If NOEDIT 
is specified, the cards are 
flushed up to a stop before 
the keyboard is unlocked. 
(This is the same as the 
effect of CD2a. ) 

If DISP is specified, the 
card input will be displayed 
on the typewriter; if 
NODISP is specified, it will 
not. 



If the options are not 

explicitly chosen in the 

command, EDIT or DISP is 
assumed. 



Response: None. 



Trouble report 

INCORRECT COMMAND 
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QDlas. Continue card reading 

with specified edit and 

display options. 

Include in the card deck a 

card punched with 

)CARD 

followed, if desired, by one 

of each of the pairs: EDIT 

or NOEDIT, DISP or NODISP. 

Effect: 

1. The edit or display 
options will be set 
appropriately . 

ResEonse : None . 



Trouble reggrt 

INCORRECT COMMAND 



CD2j. StOE reading cards and 

ieturn" control to the 

keyboard: 

Include in the card deck a 

card punched with 

)CAIiD END. 

If feet: 

1. Card reading stops. 

2. The keyboard unlocks. 
Resgonse: None. 



Trouble report 

Incorrect command 



SBia^. Run cards through to 
stop and return control to 
the keyboard; 
Enter )CARD END 



Effect: 

1. Cards are read but 
instructions are not 
executed until a stop 

occurs. 

2. The keyboard unlocks. 
ResEOnse: None. 



If cards run out before a 
stop' card occurs the 
keyboard remains looked. An 
attention signal can be used 
to return control to the 
keyboard. 

Trouble regort 

INCORRE CT~ COMMA ND 
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CB3j. Punch cards for global 
2bJsc±s in the active 

Enter )PCH 

followed by a space and one 
or more names of objects, 
separated by spaces. 

EffSfit: 

1. A copy of each named 

object is punched into 

cards. 



Locked functions (see Part 
3) cannot be punched. 



BeSPQQSg ; None . 



The cards produced by a 
punch command can be read 
into the system at a later 
time with a card command. 
The effect will be to 
restore the functions and 
variables (in the active 
workspace) as they were when 
the cards were punched. 

Punch commands encountered 
when the system is reading 
cards result in an INCORRECT 
COMMAND report. 

Irsiibie reESits 

NOT WITH OPEN DEFN 
means that the terminal is 
in definition mode. Either 
end the definition mode by 
entering V, or defer the 
punching operation. 



NOT FOUND 

followed by a list of names 
means those names did not 
refer to global objects in 
the workspace. 

INCORRECT COMMAND 
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SBJa^ Punch cards for 
ali alo&al objects iS the 
§£tiye workspace: 
Enter )PCH~ 

Effect: 

1. A copy of each function 
and global variable in the 
active workspace is punched 
into cards . 



See note at CD3. 



S§§E2Sse: None. 



S24i. Punch cards for global 
2fel§Sts in a stored work- 
sgace. 
Enter )PCHS 

followed by a space and the 
workspace identification 
(with the key, if required) , 
and one or more names of 
objects, separated by 
spaces. 

if feet: 

1. A copy of each named 

object is punched into 

cards . 



5-E23jfei§ Reports 

NOT WITH OPEN DEFN 
See CD3 for meaning. 

INCORRECT COMMAND 
See note at CD3. 



BSSponse: None. 



NOT WITB OPEN DEFN 

NOT FOUND 

See CD3 for meanings. 

WS NOT FOUND 

means either there is no 
stored workspace with the 
given identification, or the 
wrong key (or no key) was 
used when one was required. 

INCORRECT COMMAND 
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C2i§i Elfi5l? °§?^§ f5f 
all global objects in a 
stored workspace: 
Enter )PCBS 

followed by a space and the 
workspace identification 
(with the key, if required) . 



See note at CD3. 



Effect: 

1. A copy of each function 
and global variable in the 
designated workspace is 
punched into cards. 



Response : None . 



Trouble reports 
NOT WITH OPEN VEFN 
See CD3 for meaning. 



WS NOT FOUND 

See CD4 for meaning. 

INCORRECT COMMAND 
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PART 3 



THE LANGUAGE 



The APL\1130 Terminal System executes system commands 
or mathematical statements entered on a teminal typewriter. 
The system commands were treated in Part 2; the mathematical 
statements will be treated here. 

Acceptable statements may en^loy either EEi5>i£iY§ 
functions (e.g. + - x j) which are provided by the system, 
or"difined fungtions, which the user provides by entering 
their~definitions on the terminal. 

If system commands are not used, the worst that can 
possibly result from erroneous use of the keyboard is the 
printing of an error report. It is therefore advantageous 
to experiment freely and to use the system itself for 
settling any doubts about its behavior. For example, to 
find what happens in an attempted division by zero, simply 
enter the expression itJO. If ever the system seems 
unusually slow to respond, execute an attention signal to 
interrupt execution and unlock the keyboard. 

The Sain>le Terminal Session of Appendix A shows actual 
intercourse with the system which may be used as a model m 
gaining facility with the terminal. The examples follow the 
text and may well be studied concurrently. 

The primitive functions and the defined functions 
available in libraries can be used without knowledge of the 
means of defining functions. These means are treated in the 
four contiguous sections beginning with Defined Functions 
and ending with Homonyms. These sections may be skipped 
without loss of continuity. 

FUNDAMENTALS 

Statements. Statements are of two main types, the branch 
(denoted~~by -<■ and treated in the section on Defined 
Functions) , and the SBgcifi cation. A typical specification 
statement is of the form 

Af-^3xH 

This statement assigns to the variable X the value resulting 
from the expression to the right of the specification arrow. 
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If the variable name and arrow are omitted, the resulting 
value is printed. For exaii5>le: 



12 

Results typed by the system begin at the left margin 
whereas entries from the keyboard are automatically 
indented. The keyboard arrangement is shown in Figure 1.2. 

SsaJar and vector constants. All numbers entered via the 
keyboard or typed out by the system are in decimal, either 
in conventional form (including a decimal point if 
appropriate) or in exponential form. The exponential form 
consists of an integer or decimal fraction followed 
imnediately by the symbol E followed immediately by an 
integer. The integer following the E specifies the power of 
ten by which the part preceding the E is to be multiplied. 
Thus l.i(t£'2 is equivalent to 144. 

Negative numbers are represented by a negative sign 
immediately preceding the number, e.g., "1.44 and ~innB~2 
are equivalent negative numbers. The negative sign can be 
used only as part of a constant and is to be distinguished 
from the negation function which is denoted, as usual, by 
the minus sign -. 

A constant vector is entered by typing the constant 
components in order, separated by one or more spaces. A 
character constant is entered by typing the character 
between quotation marks, and a sequence of characters 
entered in quotes represents a vector whose successive 
components are the characters themselves. Such a vector is 
printed by the system as the sequence of characters, with no 
enclosing quotes and with no separation of the successive 
elements. The quote character itself must be typed in as a 
pair of quotes. Thus, the abbreviation of CANNOT is 
entered as 'CAN''T' and prints as CAN'T. 

Names and Seaces. As noted in Part 2, the name of a 
variable or defined function may be any sequence of six or 
fewer letters or digits beginning with a letter and not 
containing a space. 

Spaces are not required between primitive functions and 
constants or variables, or between a succession of primitive 
functions, but they may be used if desired. Spaces are 
needed to separate names of adjacent defined functions, 
constants, and variables. For example, the expression 3+4 
may be entered with no spaces, but if p is a defined 
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function, then the expression 3 F 4 must be entered with the 
indicated spaces. The exact number of spaces used in 
succession is of no importance and extra spaces may be used 
freely . 

Qyergtriking and erasure. Backspacing serves only to 
position the carriage and does not cause erasure or deletion 
of characters. It can be used: 

1. to insert missing characters (such as parentheses) 
if space has previously been left for them. 



2. 



to form compound characters by overstriking (e.g. 
and i)) ) , and 



3. to position the carriage for erasure, which is 
effected by striking the linefeed (marked ATTN on IBM 
2741 terminals and INT REQ on the 1131 console 
keyboard) . The linefeed has the effect of erasing the 
character at the position of the carriage, euid all 
characters to the right. 

End of Statement. The end of a statement is indicated by 
striking the carriage return. The typed entry is then 
interpreted exactly as it appears on the page, regardless of 
the time sequence in which the characters were typed. 

QEder of executisn. In a compound expression such as 
3X4+6J2, the functions are executed (evaluated) from 
rightmost to leftmost, regardless of the particular 
functions appearing in the expression. (The foregoing 
expression evaluates to 21.) When parentheses are used, as 
in the expression W*( 3[Q)^X>'Y-Z, the same rule applies, but, 
as usual, an enclosed expression must be conpletely 
evaluated before its results can be used. Thus, the 
foregoing expression is equivalent to W-^i 3\'Q)i(X^(I-Z)). 

In general, the rule can be expressed as follows: every 
function takes as its righthand argument the entire 



expression to its right, up 
pair that encloses it. 



to the right parenthesis of the 



EEEsr repsEts. The attempt to execute an invalid statement 
will cause one of the error reports of Table 3.1 to be typed 
out. The error report will be followed by the offending 
statement with a caret typed under the point in the 
statement where the error was detected. If the caret lies 
to the right of a specification arrow, the specification has 
not yet been performed. 
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TYPE 



Cause; CORRECTIVE ACTION 



CHARACTER 
DEFN 



FN SPACE 
FULL 

DOMAIN 

FUNCTION 
TOO LARGE 

ID 

INDEX 

LABEL 

LENGTH 

LINE TOO 
LONG 

RANK 

SYNTAX 

SYSTEM 
VALUE 

WS FULL 



Illegitimate overstrike. 

Misuse of V or D symbols: 

1. V is in some position other than the first. 

2. The function is pendent. DISPLAY THE STATE 
INDICATOR AND CLEAR AS REQUIRED. 

3. Use of more of the header than VF to reopen 
the definition of F. 

4. Improper request for a line edit or display. 

5. The function is locked. 

Function portion of workspace cannot hold more 
functions. ERASE FUNCTIONS NO LONGER REQUIRED. 

Arguments not in the domain of the function. 

Too many lines, labels, or local variables in a 
function. REVISE OR SEGMENT THE FUNCTION. 

Identifier with more than six characters. 

Index value out of range. 

Definition of a label that is already an 
argument, explicit result, or label for the 
function. 



160 characters. 



Shapes not conformable. 

Statement with more than 
SEGMENT THE STATEMENT. 

Reinks not conformable. 



Invalid syntax; e.g., two variables juxtaposed; 
function used without appropriate arguments as 
dictated by its header; mismatched parentheses. 

Fault in internal operation of APL\1130. 

Use of a name that has not been assigned a 
value. ASSIGN A VALUE TO THE VARIABLE OR 
DEFINE THE FUNCTION. 

The portion of the workspace for variables is 
filled (perhaps by temporary values produced in 
evaluating a compound expression) . CLEAR THE 
STATE INDICATOR, ERASE NEEDLESS OBJECTS, OR 
REVISE CALCULATIONS TO USE LESS SPACE. 



Table 3.1 ERROR REPORTS 
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If an invalid statement is encountered during execution 
of a defined function, the error report includes the 
function name and the line number of the invalid statement. 
The recommended procedure at this point is to enter a right 
arrow followed by a zero (-►0) , and then retry with an 
amended statement. The matter is treated more fully in the 
section on Suspended Function Execution. 

Names e£ ECiSSitive functioag. The primitive functions of 
the language are summarized in Tables 3.2 and 3.8, and will 
be discussed individually in subsequent sections. The tables 
show one suggested name for each function. This is not 
intended to discourage the common mathematical practice of 
vocalizing a function in a variety of ways (for exan^le,' 
XiY may be expressed as "Z divided by Y" , or "X over I"). 
Thus, the expression pM yields the dimension of the array M, 
but the terms size or shage may be preferred both for their 
brevity and for the fact that they avoid potential confusion 
with the dimensionality or rank of the array. 

The in5)ortance of such names and synonyms diminishes 
with familiarity. The usual tendency is toward the use of 
the name of the symbol itself (e.g., "rho" (p) for "size", 
and "iota" (\) for "index generator"), probably to avoid 
unwcuited connotations of any of the chosen names. 

SCALAR FUNCTIONS 

Each of the primitive functions is classified as either 
scalar or niixed. Scalar functions are defined on scalar 
Ti.e. , individual) arguments euid are extended to arrays in 
four ways: element-by-element, reduction, inner product, and 
outer product, as described in the section on Functions on 
Arrays. Mixed functions are discussed in a later section. 

The scalar functions are summarized in Table 3.2. Each 
is defined on real numbers or, as in the case of the logical 
functions and and or, on some subset of them. No functional 
distinction is made between "fixed point" and "floating 
point" numbers, this being primarily a matter of the 
representation in a particular medium, and the user of the 
terminal system need have no concern with such questions 
unless his work strains the capacity of the machine with 
respect to either space or accuracy. 



E£§Sision of numbers^ Integers less than 2 to the power 23 
are carried with full precision; larger numbers and 
non-integers are carried to a precision of 6 to 7 decimal 
digits. 
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Monadic form fB 



Dyadic form AfB 



Definition 
or example 



Name 



Name 



Definition 
or example 



+B <-^ 0+B 

-B -H-> 0-B 

xB -(-^ (S>0)-(B<0) 

rS ^-^ liB 



B 


rs 


LB 


3. 14 

3. 14 


4 
3 


3 
~4 



•5 ^-> (2.71828. . )*5 
9*N ■<->■ i\7 -«"> *»iV 



3. 14 



3. 14 



10 
IB 

?B 



OB 
~1 



S X I B - 1 

Random choice 
from \B 

Sx3. 14159. . . 

~0 -f--*-! 



Plus 

Negative 

Signum 

Reciprocal 

Ceiling 

Floor 

Exponential 

Natural 
logarithm 

Magnitude 



Factorial 

Roll 

Pi timest 
Not 



(-A)oB 




A 


AOB 


( 1-S*2 )*. 5 





( 1-B*2)*. 5 


Arcs in B 


1 


Sine B 


Arc cos B 


2 


Cosine B 


Arc tan B 


3 


Tangent B 


(~1+B*2)*. 5 


4 


( 1+B*2)*. 5 


Arcsinh B 


• 5 


Sinh B 


Arccosh B 


6 


Cosh B 


Arctanh B 


7 


Tanh B 



Table of Dyadic o Functions 



A 
V 



< 
< 

> 
> 



Plus 

Minus 

Times 

Divide 

Maximimi 

Minimum 

Power 

Logarithm 

Residue 



t 



2 + 3.2 -f-^ 5.2 
2-3.2 ^^ "1.2 
2x3.2 -«-> 6.4 
2v3. 2 -<-^ 0. 625 

3 r 7 -!-> 7 
3L7 -*-->- 3 
2*3 ^-»- 8 

/1»B -^->- Log B base 4 

^aB ■*-->■ (9B)r9A 



Case 



A*0 

A=0,B>0 

A=0,B<0 



A \B 



B-( U)xLBtU 

B 

Domain error 



Binomial 
coefficient 

Deal^ 



t 



Circular 



And 
Or 

Nand^ 
Nort 



Less 

Not greater 

Equal 

Not less 

Greater 

Not Equal 



AlB ^^ (IB)v(U)xIB->l 
2 • 5 ^-^ 1 3 I 5 ^-^^ 1 

A Mixed Function (See 
Table 3.8) 

See Table at left 



A B AAB A^B At<B A'*B 















1 


1 





1 





1 


1 





1 








1 


1 





1 


1 


1 


1 









Relations 

Result is 1 if the 
relation holds, 
if it does not; 

3<7 ■<-^- 1 
7<3 -<-► 



^This function not available on APL\1130 



Table 3.2: PRIMITIVE SCALAR FUNCTIONS 
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For functions such as floor and ceiling, and in 
comparisons, a "fuzz" of about ie~7 is applied in order to 
avoid anomalous results that might otherwise be engendered 
by doing decimal arithmetic on a binary machine. 

Two of the functions of Table 3.2, the relations x and 
=, are defined on characters as well as on numbers. 

Monadic and dYadic functions. Each of the functions defined 
in Table 3.2 may be used in the same manner as the familiar 
arithmetic fvmctions + - x cind i. Most of the symbols 
employed may denote either a monadic function (which takes 
one argument) or a dyadic function (which takes two 
arguments). For example, [y denotes the monadic function 
S§iliB3 applied to the single argument y, and x[Y denotes 
the dyadic function maximum applied to the two arguments x 
and Y. Any such symbol always denotes a dyadic function if 
possible, i.e., it will take a left argument if one is 
present. 

At this point it may be helpful to scrutinize each of 
the functions of Table 3. 2 and to work out some examples of 
each, either by hand or on a terminal. However, it is not 
essential to grasp all of the more advanced mathematical 
functions in order to proceed. Treatments of these 
functions are readily available in standard texts. 

Certain of the scalar functions deserve brief coinment. 
The residue function A\B has the usual definition of residue 
used in number theory. For positive integer arguments this 
is equivalent to the remainder obtained on dividing B by A, 
and may be stated more generally as the smallest 
non-negative member of the set b-N^a, where N is any 
integer. 

This formulation covers the case of a zero left 
argument as shown in Table 3.2. The conventional definition 
is extended in two further respects: 

1. The left argument A need not be positive; however, 
the value of the result depends only on the magnitude 
of A. 

2. The arguments need not be integral. For example, 
1|2.6 is 0.6 and l.5|8 is 0.5. 

In APL\1130, the domain of the ? function is limited to 
positive integer arguments less than 32768. 
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The factorial function '.ff is defined in the usual way 
as the product of the first ff positive integers. The 
function A'.B (pronounced A out of B) is defined as 
(.'.B)i(lA)x'.B-A and is the number of combinations of B things 
taken 4 at a time. 

The symbols < < = > > and » denote the relations 
less than, less than or egual, etc., in the usual manner. 
However, an expression of the form A<B is treated not as an 
assertion, but as a function which yields a 1 if the 
proposition is true, and if it is false. For example: 



3<7 
7<3 



When applied to logical arguments (i.e., arguments 
whose values are limited to and 1) , the six relations are 
equivalent to six of the logical functions of two arguments. 
For example, < is equivalent to material imEiisation, and » 
is equivalent to exclusiye-or. These six functions together 
with the and, or, nand, and nor shown in Table 3.2 exhaust 
the nontrivial logical functions of two logical arguments. 

Vectors. Each of the monadic functions of Table 3.2 applies 
to" a~ vector, element by element. Each of the dyadic 
functions applies element by element to a pair of vectors of 
equal dimension or to one scalar (or a single element vector 
or matrix) and a vector of any dimension, the scalar being 
used with each component of the vector. For example: 

12 3 tx4 3 2 1 
4 6 6 M- 

2+1 2 3 4 
3 4 5 6 

12 3 4r2 
2 2 3 4 

ladex generator. If » is a non-negative integer, then iff 
denotes a vector of the first ff integers. The dimension of 
the vector iff is therefore ff; in particular, i 1 is a vector 
of length one which has the value 1, and lO is a vector of 
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length zero, also called an empty vector. The empty vector 
prints as a blank. For exan^le: 



It 

3 ■ t 
l5 

3 It 
lO 

6-i5 
3 2 
2xi0 

2xi6 
6 8 



Enpty vector prints as a blank 



Scalar applies to all (i.e., 0) elements 
of 1 , resulting in an empty vector 



10 12 



The index generator is one of the class of mixed 
functions to be treated in detail later; it is included here 
because it is useful in examples. 

DEFINED FUNCTIONS 

latiadUStiSB. it would be impracticable and confusing to 
attempt to include as primitives in a language all of the 
functions which might prove useful in diverse areas of 
application. On the other hand, in any particular 
application there are msmy functions of general utility 
whose use should be made as convenient as possible. This 
need is met by the ability to define and name new functions, 
which can then be used with the convenience of primitives. 

This section introduces the basic notions of function 
definition and illustrates the use of defined functions. 
Most of the detailed mechanics of function definition, 
revision, and display, are deferred to the succeeding 
section. 



[1] 
[2] 
[3] 



The sequence 

VSPHERE 

S£/i?F-f-i(x3.1U159xBxff 

VOL^-SURFxRiS 

V 



is called a fHSCtion definition; the first v (pronounced 
dgi) marks the beginning of the definition and the second v 
marks the conclusion: the name following the first v (in 
this case SPHERE) is the name of the function defined, the 
numbers in brackets are statement numbers, and the 
accompanying statements form the body of the function 
definition. In APL\1130, the number of statements in a 
function body may not exceed 50. 
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The act of defining a function neither executes nor 
checks for validity the statements in the body. After the 
definition of a function is completed, entering the name of 
the function causes the execution of the statements in the 
body. For exan^le: 



[1] 

[2] 
[3] 



'^SPHERE 

SURF1-HX3, 

VOLfSURF> 

V 

R->-2 

R 



lltl59xi?xi? 
Ri3 



Definition of the 
function SPHERE 



Specification and display 
of the argument R 



SURF 
VALUE ERROR 
SURF 



SURF has not been 
assigned a value 



SPHERE 

SURF 
50.2654 

VOL 
33.5103 

R*-l 

SPHERE 

SURF 
12.5661* 

VOL 
1. 18879 



Execution of SPHERE 
SURF and VOL now have 
values assigned by the 
execution of SPHERE 

Use of SPHERE for 
a new value of the 
argument R 



S£SQShin3> Statements in a function are normally executed 
in the order indicated by the statement numbers, and 
execution terminates at the end of the last statement in the 
sequence. This normal order can be modified by branches. 
Branches make possible the construction of iterative 
procedures. 

The expression -m denotes a branch to statement 4 and 
causes statement 4 of the function to be executed next. In 
general, the arrow may be followed by any expression which, 
to be effective, must evaluate to an integer. This value is 
the number of the statement to be executed next. If the 
integer lies outside the range of statement numbers of the 
body of the function, the branch ends the execution of the 
function. 

If the value of the expression to the right of a branch 
arrow is a non-empty vector, the branch is determined by its 
first component. If the vector is empty (i.e., of zero 
dimension) the branch is vacuous and the normal sequence is 
followed. 
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The following examples illustrate various methods of 
branching used in three equivalent functions {sVM, SUMli an<3 
SUM2') for determining S as the sum of the first m integers; 



[1] 

[2] 
[3] 
Ct] 
[5] 
C63 
[7] 



ISUM 

S-s-0 

I->-I+l 

•*3 

V 

SUM 
S 



Branch to 4xi (i.e., n) or to 4x0 (out) 
Unconditional branch to 3 



15 

[1] 
[2] 
C3] 
[t] 
[53 
[6] 
[7] 



15 

[1] 
[2] 
[3] 
C4] 
C5] 
[6] 



ff-i-2 
SUM 
S 

SUM 
S 

VSt/Ml 

S+O 

I-c-1 

-«-OxiI>fl 

S-i-S+J 

I-i-I+l 

-1-3 

V 

JV*5 

syMi 

5 

\ISUM2 

S-«-0 

I->-0 

i-i-r+1 

*3xiI<Af 
V 



Equivalent to SUM 

Branch to (out) or continue to next 
line since Oxio is an empty vector 

Unconditional branch to 3 



Equivalent to SUM 



Branch to 3 or fall through (and out) 



From the last two functions in the foregoing exan^ile, 
it should be clear that the expression x i occurring in a 
branch may often be read as "if". For example, -*3^iI<N may 
be read as "Branch to 3 if I is less than or equal to N," 
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iessl 3n<3 global XSJrisbleS. a variable is normally alobal 
in the sense that its name has the same significance no 
matter what function or functions it may be used in. 
However, the iteration counter I occurring in the foregoing 
function SUM is of interest only during execution of the 
function; it is frequently convenient to make such a 
variable Ificsl ±2 3 fUDctifin in the sense that it has 
meaning only during the execution of the function and bears 
no relation to any object referred to by the same name at 
other times. Any number of variables can be made- local to a 
function by appending each (preceded by a semicolon) to the 
function header. CoB^jare the following behavior of the 
function SUM.3 , which has a local variable I, with the 
behavior of the function SUM2 in which I is global: 



^SUM3;I 



VSUM2 



[1] 
C2] 
[3] 
[4] 
[5] 
[6] 



15 



S-i-0 

J-i-0 

S-i-S + I 

I-t-I+1 

-►3xil<ff 

V 

J-i-2 

ff-i-5 

SUMZ 

S 



Cl] 

C2] 
C3] 

Ct] 

[5] 

t63 



15 



S-i-0 
J-i-0 
S-rSi-I 

■*3y-\I<ll 

V 

J-f-2 

iV-i-5 

SUM2 

S 



20 6 

Since I is local to the function SUM3 , execution of SUMZ has 
no effect on the variable I referred to before and after the 

use of SUMZ. 

However, if the variable K is local to a function F 
then any function G used within F may refer to the same 
variable K, unless the name K is further localized by being 
made local to G. For further treatment of this matter, see 
the section on Homonyms. 
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SXElirCit argument. A function definition of the form 

^SPH X 
[1] Syi?-«-ltx3.1tl59xJxJ 

[2] 7 

defines SPH as a function with an explicit argument; 
whenever such a function is used it must be provided with an 
argument. For example: 

SPH 2 

SUE 
50.265t 

SPH 1 

SUE 
12.5664 

Any explicit argument of a function is automatically 
made local to the function; if E is any expression, then the 
effect of SPH E is to assign to the local variable x the 
value of the expression E and then execute the body of the 
function SPH. Except for having a value assigned initially, 
the argument variable is treated as any other local variable 
and, in particular, may be respecified within the function. 

BXBlisit XSSalt. Each of the primitive functions produces a 
result and may therefore appear within compound expressions. 
For example, the expression 5Z produces an explicit result 
and may therefore appear in a compound expression such as 
X-HZ. A function definition of the form 



Cl] 
C2] 



VZ*-SP X 

Zt-l+xa. litl59xXx 

V 



defines SP as a function with an explicit result; the 

variable 2 is local, and the value it assumes at the 

completion of execution of the body of the function is the 
explicit result of the function. For example: 

e-<-3x5p 1 
e 

37. 6991 

E^2 

(SP E)xRi3 
33.5103 



64 



IhS £fi£ffiS Qf defined functions. Functions may be defined 
with 2,1, or explicit arguments and either with or without 
an explicit result. The form of header used to define each 
of these six types is shown in Table 3.3. Each of the six 
forms peiBiits the appending of semicolons and names to 
introduce local variables. The names appearing in any one 
header must all be distinct; e.g., the header 2-*-F Z is 
invalid. 



Arguments 


Number 




of Results 

1 




1 

2 


VF 

VF J 
VX F Y 


^Z->-F 
VZfF 1 

vz-i-jf F y 



Table 3.3; FORMS OF DEFINED 
FUNCTIONS 



It is not obligatory either for the arguments of a 
defined function to be used within the body, or for the 
result vari2d5le to be specified. A function definition 
which does not assign a value to the result variable will 
engender a sglue errgr report when it is used within a 
compound expression. This behavior permits a function to be 
defined with a restricted domain, by testing the argument (s) 
and branching out in certain cases without specifying a 
result. For example: 

IZ^SQET X 
[1] -<-OxiX<o 
[2] Z-i-X*.5V 

Q-^SQRT 16 



Q^SQET 16 
VALUE EEROR 

Q-i-SQET "16 

A 
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USfi Qf ^sfined function^. A defined function may be used in 
the same ways that a primitive function may. In particular, 
it may be used within the definition of another function. 
For example, the function HYP determines the hypotenuse of a 
right triangle of sides A and B by using the square root 
function SQRT: 



C13 



'JZ^SQRT X 



[1] 



VE^A HYP B 
H-i-SQRT (A*2)+B*2V 



13 



5 HYP 12 



A defined function must be used with the same number of 
arguments as appear in its header. 

BSSUrsiye fanotion definitigSi A function F may be used in 
the body of its own definition, in which case the function 
is said to be recursively defined. The following program 
FAC shows a recursive definition of the factorial function. 
The heart of the definition is statement 2, which determines 
factorial ff as the product of N and FAC JV-1, except for the 
case ff=o when it is determined {by statement 4) as l : 



Cl] 

[2] 
C3] 

[t3 



'JZ'^FAC N 

Z->-NxFAC ff-1 

-"•0 

Z-i-lV 



Trace control. A trace is an automatic type-out of 
information generated by the execution of a function as it 
progresses. In a complete trace of a function p, the number 
of each statement executed is typed out in brackets, 
preceded by the function name P and followed by the final 
value produced by the statement. The trace is useful in 
analyzing the behavior of a defined function, particularly 
during its design. 

The tracing of P is controlled by the trace vector for 
P, denoted by ThP. If one types TAPi-2 3 5 then statements 
2, 3, and 5 will be traced in any subsequent execution of P. 
More generally, the value assigned to the trace vector may 
be any vector of integers. Typing TAP-f-O will discontinue 
tracing of P. A complete trace of P is set up by entering 
rAP-s-tff, where N is the number of statements in P. 
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MKCHANICS OF FUNCTION DEFINITION 

When a function definition is opened (by typing a V 
followed by a header) , the system autoaatically types 
successive statement numbers enclosed in brackets and 
accepts successive entries as the stateaents forming the 
body of the definition. The system is therefore said to be 
in definition mode, as opposed to the execution mode irtiich 
prevails outside of function definition. 

There are several devices which may be used during 
function definition to revise and display the function being 
defined. After function definition has been closed, there 
are convenient ways to re-open the definition so that these 
same devices may be used for further revision or display. 

Safesls. If a statement occurring in the body of a fvmction 
definition is prefaced by a name and a colon, then at the 
end of the definition the name is assigned a value equal to 
the statement number. A name specified in this way is 
called a Igibel. Labels are used to advantage in branches 
when it is expected that a function definition may be 
changed for one reason or another, since a label 
automatically assumes the new value of the statement number 
of its associated statement as statements are inserted or 
deleted. A label is a local name as if it had occurred in 
the header; unlike a local variable it camnot be 
respecified. 

Sevisisn. Any statement number (including one typed by the 
system) can be overridden by typing [N], where N is any 
positive number less than 100, with or without a decimal 
point and with at most two digits to the right of the 
decimal point. If N is zero, it refers to the header line 
of the function. 

If a statement number is used again, the new text 
associated with it replaces the old statement. If any 
statement is entity — that is, the bracketed statement 
number was immediately followed by both a linefeed and a 
carriage return (a carriage return alone is vacuous) — it 
is deleted. 

When the function definition mode is ended, the 
statements are reordered according to their statement 
numbers and the statement numbers are replaced by the 
integers 1,2,3, and so on. Labels are assigned appropriate 
values. 
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The particular statenent on which the closing v appears 
IS not significant, since it marks only the end of the 
aermition mode, not necessarily the last line of the 
function. Moreover, the closing v may be entered either 
alone or at the end of a statement. 

BisEiay. During function definition, statement N can be 
displayed by overriding the line number with [NQ] After 
the display, the system awaits replacement of statement N. 
Typing [p] displays the entire function, including the 
header and the opening and closing v, and awaits entry of 
the next^statement; typing CQN] displays all statements from 
N onward and awaits replacement of the last statement. 
Executing an attention signal will stop any display. 

U5§ SSiiing. During function definition, statement N can 
be modified by the following mechanism: 

1. Type [NEW] where M is an integer. 

2. Statement N is automatically displayed and the 
carriage stops xinder position M. 

3. A letter or decimal digit or the symbol / may be 
typed under any of the positions in the displayed 
statement. Any other characters typed in this mode 
are ignored. The ordinary rules for backspace and 
linefeed apply. 

4. When the carriage is returned, statement N is 
re-displayed without the line number. Each character 
understruck by a / is deleted, each character 
understruck by a digit K is preceded by K added 
spaces, and each character understruck by a letter is 
preceded by Sxi? spaces, where E is the position of the 
letter m the alphabet. Finally, the carriage moves 
to the first injected space and awaits the typing of 
modifications to the statement in the usual manner 
The final effect is to define the statement exactly~as 
if the entry had been made entirely from the keyboard; 
m particular, a completely blank sequence leaves the 
statement unchanged. 

A new statement number (in brackets) can be entered in 
the space left for it during the editing procedure. The 
statement affected is determined by the new statement 
number; hence statement N remains unchanged. This permits 
statements to be moved, with or without modification. 



68 



Reopening function dtefinjtiojj. If a function B is already 
defined, the definition mode' for that function can be 
re-established by entering vif alone; the rest of the 
function header must not be entered. The system responds by 
typing [if+1], where N is the number of statements in R. 
Function definition then proceeds in the normal manner. 

Function definition may also be established with 
editing or display requested on the same line. For example, 
VRZ3iX->-X+l initiates editing by entering a new line 3 
immediately. The system responds by typing [ij] and awaiting 
continuation. The entire process may be accomplished on a 
single line. Thus, VRialX-^X+lv opens the definition of R, 
enters a new line 3, and terminates the definition mode. 
Also, Vi?Cn]V causes the entire definition of R to be 
displayed, after which the system returns to execution mode. 

Similar expressions involving display are also 
permissible, for example, VifCD3]v or VffCD] or vifC2DlO]. 

Locked functions. If the symbol ¥ (formed by a 7 overstruck 
with a ~ and called del-tilde) is used instead of v to open 
or close a function definition, the function becomes looked. 
A locked function cannot be revised or displayed in any way. 
Moreover, an error stop within the function will print only 
the function name and the type of error, not the statement 
Finally, the trace control vector for a function cannot be 
changed after the function is locked. 

Function locks are used to keep a function definition 
proprietary. For example, in an exercise in which a student 
is required to determine the behavior of a function by using 
It for a variety of arguments, locking a function prevents 
him from displaying its definition. 

Seletipn of functions and variables. A function F (whether 
locked or not) is deleted by the command )ERASE F (see Table 
2.1). A variable also may be deleted by the erase command. 

System command entered during function definition. A system 
command entered during function definition will not be 
accepted as a statement in the definition. Some commands 
such as )C0FI, will be rejected with the messag4 
NOT WITH OPEN DEFN (see Table 2.1); most will be executed 
immediately. 
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SUSPENDED FUNCTION EXECUTION 

Suspension. The execution of a function F may be stopped 
before con^letion in two ways: by an error report, or by an 
attention signal. In either case, the function is still 
active and its execution can later be resumed. In this 
state the function is said to be suspended. Typing -►K will 
cauae execution of the suspended function to be resimed, 
beginning with statement K. 

Whatever the reason for suspension, the statement or 
statement number displayed is the next one to have been 
executed. A branch to that statement number will cause 
normal continuation of the function execution, and a branch 
out <-»-0) will terminate execution of the function. 

In the suspended state all normal activities eure 
possible. In particular, the system is in a condition to: 

1. execute statements or system conmands. 

2. resume execution of the function at an arbitrary 
point N (by entering ->-N) . 

3. reopen the definition of any function which is not 
pendent. The term e§S5§5£ is defined in the 
discussion of the state indicator below. 

i£3£@ iS£!iS§tor. Typing )SI causes a display of the state 
±S&?§tor; a typical display has the following form: 



ffC2] 



)SI 



The foregoing display indicates that execution was 
halted at statement 7 of the fxmction H, that the current 
use of function H was invoked in statement 2 of function G, 
and that the use of function G was in turn invoked in 
statement 3 of F. (No line number is printed for locked 
functions). The * appearing to the right of fl[7] indicates 
that the function H is suspended; the functions G and F are 
said to be E§!l^§!}t. 
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Further functions can be invoked when in the suspended 
state. Thus if a were now invoked and a farther suspension 
occurred in stateaent 5 of Q, itself invoked in statement 8 
of G, a sttoseqaent display of the state Indicator would 
tppohc its follows: 

)SI 

GCB] 

«[7] * . 

GC2] 

FC33 

It is recoBBvended that the state indicator be cleared 
before modifying a program that uses statement labels. 
Changing the values of statement labels (by adding or 
reisoving statements) in the function will not affect the 
label values for a suspended execution, and if execution of 
the suspended function is continued, branch instructions may 
result in branches to the wrong statements. 

The state indicator can often be cleared by repeated 

entry of -»-o. If this does not work, it can be cleared by a 
sequence of commands of the following form: 

)SAVE A ) CLEAR )COPY A 

Trace control vectors may be set within functions. In 
particular, they may be set by e3q>ression3 which initiate or 
discontinue tracing according to the values of certain 
variaibles. 
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HOMONXMS 

YSEif^lg aSSSS' The use of local variables introduces the 
possibility of having more than one object in a workspace 
with the same name. Confusion is avoided by the following 
rules when a function is executed, its local variables 
si^ersede, for the duration of the execution, other objects 
of the same names. A name may, therefore, be said to have 
one active referent and (possibly) several latent referents. 

The oonplete set of referents of a name can be 

determined with the aid of the SIV list (state indicator 

with local variables) , whose display is initiated by the 

command )SIV. The SIV list contains the information 

provided by the command )SI, aujnented by the names of the 
variables local to each function (including labels). A 
seui^le display follows: 

)SIV 



GC73 


* Z X I 


FCt] 


p J 


e[3] 


* C X T 


i?C2] 


P 


ai33 


Z X I 



If the SIV list is scanned downward, from the top, the 
first occurrence of a variable is the point at which its 
active referent was introduced; lower occurrences are the 
points at which currently latent referents were introduced; 
and if the name is not found at all, its referent is global, 
and should be sought for with the commands )FffS or )VARS. 

As the state indicator is cleared by the continuation 
to con^letion of halted functions, latent referents become 
active in the sequence summarized, for the preceding SIV 
list, by the following diagram: 



R 

G 

Global 



ZXIPJCTA 

+ + + 1111 

I I I + + I I 

I + I I I + + 

I I I + I I I 

+ + + I I I I 

+ + + + + + + + + 



The currently active referent of a name holds down to 
and including the execution of the function listed at the 
point of the first arrow, because of localization of the 
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name within that function. The first latent referent 

^wn""?o''thrne:t"" ''^"' ''^"°^'°" " completes?" a^f hl?Ss 
down to the next arrow; and so forth until the state 
t^nif^'""" ",°°«Pletely cleared, at which point therl are nl 
Si o^^ects!^"' ^^^^ren^s, and all act!^ referlnS^re 

f^£!^?- ----^,- *^^ function names are global. m the 
Sed^witLr'^'n therefore, a function naLd ■ P cannot ^e 
r^f« ^ i ^^ function if or within any of the functions 
en^loyed by R, since the local variable name P mSes th^ 
function P inaccessible. However, ewn if such 
circumstances, the opening of function definition for such a 
function p is possible. (Moreover, as stated in pirt 2 
system commands concern global objects only? regardless of 
the current environment.) ^cyaxaiess or 

free '"frlm^oiwll?^ homonyms is easy to use and relatively 
;^^™,i- pitfalls. It can, however, lead to seemina 
anomalies as indicated by the following example (show^to 

dilfSr oSfv in^^-^-^'^^^^ °^ '^° P-i" of functions whi^ 
differ only m the name used for the argument: 



[1] 



Ci] 



VZ-^F X 
VZ+G Y 

zt-F yv 
y^3 
a 4 



Ci] 



Ci] 



VZf-F 


X 


Zi-X+YV 


vz-t-a 


R 


Z-i-F RV 


Y-i-3 




G 4 





INPUT AND OUTPUT 

The following function determines the value of an 
amount A invested at interest B[l] for a period of B[2] 
years: 

VZ-i-4 CPI B 
[1] Zf-4x(l+.01xB[i:)*B[2]V 

For example: 

10 00 CPI 5 "+ 
1215. 51 
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The casual user of such a function might, however, find 
it onerous to remember the positions of the various 
arguments and whether the interest rate is to be entered as 
the actual rate (e.g., .05) or in percent (e.g., 5). An 
exchange of the following form might be more palatable: 

CI 
ENTER CAPITAL AMOUNT IN DOLLARS 
D: 

1000 
ENTER INTEREST IN PERCENT 
D: 

5 
ENTER PERIOD IN YEARS 
D: 

H 
RESULT IS 1215.51 



It is necessary that each of the keyboard entries 
(1000, 5, and 4) occurring in such an exchange be accepted 
not as an ordinary entry (which would only evoke the 
response 1000, etc.), but as data to be used within the 
function CI. Facilities for this are provided in two ways, 
termed evaluated inEUt, and character iuESt. 



The definition of 
of this section. 



the function CI is shown at the end 



EYSiaStsd iSEBt- The quad symbol D appearing anywhere other 
than immediately to the left of a specification arrow 
accepts keyboard input as follows: the two symbols D: are 
printed to alert the user to the type of input expected, the 
paper is spaced up one line, and the keyboard unlocks. Any 
valid expression entered at this point is evaluated and the 
result is substituted for the quad. For example: 



[1] 
[2] 

D: 

36 

D: 

9 



7Z-<-F 

2-5-14x0*2 

V 

F 

3 

F 

3t2 
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An invalid entry in response to request for a quad 
input induces 2m appropriate error report, after which input 
is again awaited at the sane point. A system conmand 
entered will be executed, after which (except in the case of 
one which replaces the active workspace) a valid expression 
will again be awaited. An empty input (i.e., a carriage 
return alone or spaces and a carriage return) is rejected 
and the system again prints the symbols D: euid awaits input. 

Character isEUt, The quote-quad symbol D (i.e., a quad 
overstruck with a quote) accepts character input: the 
keyboard unlocks at the left margin and data entered are 
accepted as characters. For example: 



x*-a 



CAN'T 



(Quote-quad input, not indented) 



CAN'T 

Normal outgut. The quad symbol appearing iimtediately to the 
left of a specification arrow indicates that the value of 
the expression to the right of the arrow is to be printed. 
Hence, Qs-Af is equivalent to the statement x. The longer 
form n-*-^ is useful when enploying multiple specification. 
For exan^le, D^Qi^X*2 assigns to Q the value x*2 and then 
prints the value of X*2. 
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J!§terog§li§ojJs output. A sequence of expressions separated 
by semi-colons will cause the values of the expressions to 
be printed, wit;h no intervening carriage returns or spaces 
except those iirplicit in the display of the values. 

The primary use of this form is for output in which 
some of the ei5)ressions yield numbers and some yield 
characters. For exan^le, if j:->-2 in , then: 

'THE VALUE OF X IS < -.X 
THE VALUE OF X IS 2 I'i 

A further exan^ile of mixed output is furnished by the 
definition of the function CI which introduced the present 
section: 

VCJ;4;I;J 
[1] 'ENTER CAPITAL AMOVHT IN DOLLAHS' 

[2] A^a 

[3] 'ENTER INTEREST IN PERCENT' 

[4] 1*0 

C5] 'ENTER PERIOD IN DEARS' 

[53 y-i-D 

[7] 'RESULT IS ' ;ylx(l+.01xj)*y7 

HECTANGULAR ARRAYS 

iSiiS^SStion. A single element of a rectangular array can 
be~selected by specifying its isfiiSeS! the number of indices 
required is called the dimensionality or rank of the array. 
Thus a vector is of rank 1, a matrix (in which the first 
index selects a row and the second a column) is of rank 2, 
and a scalar (since it permits no selection by indices) is 
an array of rank 0. In APL\1130, arrays of rank greater 
than rank 2 cannot be used and no dimension of an array may 
exceed 256 j thus, a vector may have no more than 255 
elements and a matrix may have no more than 255 rows or 
columns. 

This section treats the reshaping and indexing of 
arrays, and the form of array output. The following section 
treats the four ways in which the basic scalar functions are 
extended to arrays, and the next section thereafter treats 
the definition of certain mixed functions on arrays. 
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Vectors, dlmensisQ, cateijatton. If AT is a vector, then pX 
denotes its dimension. For example, if jr-»-2 3 5 7 11, then 
pX is 5, and if I-t-' ABC , then pT is 3. A single character 
entered in quotes or in response to a H input is a scalar, 
not a vector of dimension 1; this parallels the case of a 
single number, which is also a scalar. 

Sat§aati2Q chains two vectors (or scalars) together to 
form a vector; it is denoted by a conma. For exan5)le: 



Xf-2 3 
X,X 
3 5 7 11 



5 7 11 



In general, the dimension of 
number of elements in X and J. 



X,Y is equal to the total 



f|St£4sSS/ di.S>SQsiQn, raY^l. The monadic function p applied 
to an array A yields the size of A, that is, a vector whose 
oonponents are the dimensions of A, For example, if A is 
the matrix 

1 2 3 t 
5 6 7 8 
9 10 11 12 

of three rows and four columns, then pA is the vector 3 U. 

Since p4 contains one conponent for each coordinate of 
A, the expression ppA is the rank of A. Table 3.4 

illustrates the values of pA and ppA for arrays of rank 
(scalars) up to rank 2. In particular, the function p 
applied to a scalar yields an empty vector. 



Type of Array 


pA 


ppA 


PPPi4 


Scalar 
Vector 
Matrix 


N 
M N 



1 
2 


1 
1 

1 



Table 3 ,.4: DIMENSION AND 
RANK' VECTORS 
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The monadic function ravel is denoted by a comma; when 
applied to any array A it produces a vector whose elements 
are the elements of A in row order. For example, if A is 

the matrix 



2 
10 
18 



12 
20 



6 
14 
22 



16 
21* 



and if v^ ,A then 7 is a vector of dimension 12 whose 
elements are the integers 2 4 6 8 lO 12 ... 24. If A 
is a vector, then ,A is equivalent to A; if i'is a scalar, 
then ,A is a vector of dimension 1. 

EeabaES. The dyadic function p reshapes its right argument 
to the dimension specified by its left~argument. If M^DpV, 
then M is an array of dimension D whose elements are the 
elements of v. For example, 2 3pl 2 3 4 5 6 is the matrix 



If N, the total number of elements required in the 
array DpV, is equal to the dimension of the vector V, then 
the ravel of DpV is equal to V. If ff is less than pV, then 
only the first N elements of V are used; if iV is greater 
than pV, then the elements of V are repeated cyclically. 
For example, 2 3pl 2 is the matrix 



and 3 3pl is the identity matrix 
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More generally, if A is any array, then DpA 
equivalent to Dp ,A. For example, if A is the matrix 



then 3 5pA is the matrix 



12 3 
6 12 
5 6 1 



The expressions OpX and 3pA: and 3 Op:r and OpJT are 
all valid; any one or more of the dimensions of an array may 
be zero. 



HS§S of empty ajrayg. A vector of dimension zero contains 
no components and is called an e^ty YSStSE. Three 
expressions which yield enpty vectors are 1 and ' ' emd p 
applied to any scalar. An empty vector prints as a blank 
line. 

One important use of the en^ty vector has already been 
illustrated: when one occurs as the argument of a branch, 
the effect is to continue the normal sequence. 

The following function for determining the 
representation of any positive integer ff in a base B number 
system shows a typical use of the empty vector in 
initializing a vector Z which is to be built up by 
successive catenations; 



[1] 
[2] 
[3] 
[4] 



\7Z-i-B BASE N 

Z-HO 

Z*(B\N),Z 

NHNiB 

->-2xff>0V 

10 BASE 1776 

7 6 

8 BASE 1776 
6 



Eitpty arrays of higher rank can be useful in analogous 
ways in conjunction with the expansion function described in 
the section on Mixed Functions. • 
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Ia3§Siaa« if X is a vector aind I is a scalar, then X[J] 
denotes the Ith element of X. For example, if X-^2 3 5 7 11 
then ATE 2] is 3. 

If the index I is a vector, then XIU is the vector 
obtained by selecting from x the elements indicated by 
successive components of I. For example, XCl 3 5] is 

2 5 11 and X[ 5432 1] is 11 7532 and X[t3] is 2 3 5. 
If the elements of I do not belong to the set of indices of 
X, then the expression X[J] induces an index error report. 

In general, oXlIl is equal to pi. In particular, if J 
is a scalar, then Xlll is a scalar, and if J is a matrix, 
then XCJ] is a matrix. For example: 

A*-' ABCDEFG' 

M-<-4 3p31f21i»412itlt 

M 

3 14 
2 14 

4 12 
4 14 

AlM-i 

CAD 
BAD 
DAB 
DAD 

If M is a matrix, then M is indexed by a two-part list 
of the form I; J where J selects the row (or rows) and J 
selects the column (or columns). For example, if M is the 

matrix 



2 

6 

10 



3 

7 

11 



4 

8 

12 



then M[2;3] is the element 7 and Mil 3; 2 3 4] is the matrix 



2 
10 



3 

11 



4 
12 



In general, pMUiJl is equal to (pD.pJ". Hence if J 
and J are both vectors, then M[I;«7] is a matrix; if both I 
and J are scalars, MII;J1 is a scalar; if I is a vector and 
J is a scalar (or vice versa), MZI;J1 is a vector, and if I 
is a matrix and j is a scalar (or vice versa) , m[i;J2 is a 
matrix. 
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The form Mil;! indicates that all ooluans are selected, 
and the form MiUl indicates that all rows are selected. 
For exan^le, MC2;] is 5 6 7 8 and ftf[;2 1] ife 

2 1 

6 5 

10 9 

Permutations are an interesting use of indexing. A 
vector P whose elements are some permutation of its own 
indices is called a EglSHtstiOQ of ordej pP. For exan^le, 
3 1 4 2 is a permutation of order 4. If X is any vector of 
the same dimension as P, then XCP] produces a permutation of 
X. Moreover, if pP is equal to (pA()[l], then AfCP;] permutes 
the column vectors of M (i.e., interchanges the rows of M) 
and is called a cQluiBn E§£5S£ation. Similarly, if pP equals 
(pM)[2], then MilPl is a row E§SSaS§iioS of "• 

laieKisa °S S6i left- *" array appearing to the left of a 
3pecification~arrow may be indexed, in which case only the 
selected positions are affected by the specification. For 
example: 

X-^2 3 5 7 11 
X[l 3]-<-5 8 
X 
6 3 8 7 11 

The normal restrictions on indexing apply; in 
particular, a variable which has not already been assigned a 
value cannot be indexed, and an out-of-range index value 
ceinnot be used. 



Arcay QutEBt- Character arrays print with no spaces between 
components in each row; other arrays print with at least one 
space. If a vector or a row of a matrix requires more than 
one line, succeeding lines are indented. 

A matrix prints with all columns aligned and with a 
blank line before the first row. A matrix of dimension N ,1 
prints as a single column. 



FUNCTIONS ON ARRAYS 



There are four ways in which the scalar functions of 
Table 3.2 extend to arrays: element-by-element, reduction, 
inner product, and outer product. Reduction and outer 
product are defined on any arrays, but the other two 
extensions are defined only on 
certain relationship called 
element-by-element extension, 
the shapes of the arrays agree. 



only a single element, 
are shown in Table 3.6. 



arrays whose sizes satisfy a 

conferinability. For the 

conformability requires that 

unless one of them conprises 



The requirements for inner product 



SsalSE fuaStiQus. ah of the scalar functions of Table 3.2 
are extended to arrays element by element. Thus if M and S 
are matrices of the same size, f is a scalar function, and 
P-t-MfN, then PCr;J'] equals MZI;JlfNlI iJl , and if Q->-fN, then 
QII;J1 is equal to fSZIiJI. 

If M and N are not of the same size, then MfN is 
undefined (euid induces a igsatli or sank error report) unless 
one or other of M and ff is a scalar or one-element array, in 
which case the single element is applied to each element of 
the other argument. In particular, a scalar versus an empty 
array produces an enpty array. 

An expression or function definition which employs only 
scalar functions and scalar constamts extends to arrays like 
a scalar function. 

EeSustiSQ. The sum- reduction of a vector X is denoted by 
+ /X and defined as the sum of all con5)onents of X. More 
generally, for any scalar dyadic function f, the expression 
f/X is equivalent to jr[l]f JSr[2]f . . .fX[pX] , where evaluation 
is from rightmost to leftmost as usual. A user-defined 
function cannot be used in reduction. 

If X is a vector of dimension zero, then f/X yields the 
identity element of the fvinction f (listed in Table 3.5) if 
it exists; if X is a scalar or a vector of dimension 1, then 
f/X yields the value of the single element of X. 

The result of reducing any vector or scalar is a 
scalar. 
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Dyadic 




Identity 


Left- 


Function 




Element 


Right 


Times 


X 


1 


L 


R 


Plus 


+ 





L 


R 


Divide 


i 


1 




R 


Minus 


- 







R 


Power 


it 


1 




R 


Maximum 


r 


"l.701i*ff38 


L 


R 


Minimum 


L 


1.701i*B38 


L 


R 


Residue 


1 





L 




Out of 


1 


1 


L 




Or 


V 





L 


R 


And 


A 


1 


L 


R 


Equal 


= 


1' 


Apply 


L 


R 


Not equal 


* 





for 


L 


R 


Greater 


> 





. logical 




R 


Not less 


2 


1 


argvmients 




R 


Less 


< 





only 


L 




Not greater 


S 


1) 


L 





Table 3.5: lEffiNTITY ELEMENTS OF 
PRIMITIVE SCALAR 
DYADIC FUNCTIONS 



For a matrix W, reduction can proceed along the first 
coordinate (denoted by f/M) or along the second coordinate 
result in either case is a vector; in general, 
to any non-scalar array A produces a 



(f/M). The 
reduction applied 



result of rank 
fS^uctlQQ) 



one less than the rank of A (hence the term 



Since +/M scans over the row index of M it sums each 
salffiDS vector of M, and +/M sums the eqb vectors of M. For 
example, if M is the matrix 



then +/M is 



9 and +/M is 6 15. 



InngjT EESdust. The familiar matrix product is denoted by 
C-i-4+.xB. If A and B are matrices, then C is a matrix such 
that ClliJl is equal to +/4C J; ]xB[ ; J-] . A similar definition 
applies to Af.qB where f and g are any of the standard 
scalar dyadic functions. 

If 4 is a vector and B is a matrix, then (7 is a vector 
such that CiJl is equal to +/4xB[;<7]. If B is a vector and 
4 is a matrix, then C is a vector such that Clll is equal to 
+ /4I:J;]xB. If both A and B are vectors, then A+.xB is the 
scalar t/j4xB. 



The last dimension of the pre-multiplier A must equal 
the first dimension of the post-multiplier B, except that if 
either argument is a scalar, it is extended in the usual 
way. For non-scalar arguments, the dimension of the result 
is equal to ( "l + p4) ,1+pB. (See the function (Jeqe in the 
section on Mixed Functions.) In other words, the dimension 
of the result is equal to (p4),pB except for the two inner 
dimensions ( l+p4 and 1+pB), which must agree and which are 
eliminated by the reduction over them. 

Definitions for various cases are shown in Table 3.6. 









Conformability 


Definition 


pA 


pB 


pAf.qB 


requirements 


Z->-Af.gB 










Zi-f/AgB 




V 






Zi-f/AgB 


U 








Z^f/AgB 


U 


V 




y=7 


Z^f/AgB 




V w 


W 




Z[I]*fMgBC;I] 


T U 




T 




Z[J]*f/4[J;]gB 


U 


V w 


W 


v=v 


Z[I]*f/yagB[;J] 


T U 


V 


T 


u=v 


Z[I>f/4[J;]gB 


T U 


V w 


T W 


u^v 


Z[I;J]-i-f/4[J;]gBC;J-] 



Table 3.6: 



INNER PRODUCTS FOR PRIMETIVE SCALAR 
DYADIC FUNCTIONS f AND g 



QbSSJ: EESduct. The outer product of two vectors X and J 
with respect to a standard scalar dyadic function g is 
denoted by Jo.gJ and yields an array of dimension (pAD.pY, 
formed by applying g to every pair of components of X and Y. 
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If X and y are vectors and 
equal to Xtl^tgYLJl. For exaa^le: 

X->-\ 3 
ATo.xy 

12 3 1* 

2 It 6 8 

3 6 9 12 
X'^.iY 



Z-i-JTo.gy, then Z[J:^] is 



10 
110 
1110 



Definitions for various cases are ^hpwn in^ Table 3.7. 









Definition 


pA 


pU 


pA',.gB 


Z-i-Ao.gB 








Z^AgB 




V 


V 


Z\.Il^AgBlI2 


U 




V 


ZCI]-i-4CJ]gB 


U 


V 


U V 


ZCI;J-]-i-4CJ]gB[J] 




V w 


V U 


ZiIiJl-^AgBlI;j:i 


T V 




T U 


Z[I;J']+/?[J;^]gB 



Table 3.7: 



OUTER PRODUCTS FOR PRIMITIVE 
SCALAR DYADIC FUNCTION g 



MIXED FUNCTIONS 

iQiESdUctiQn. The asalar functions listed in Table 3.2 each 
take a scalar argument (or arguments) and yield a scalar 
result; each is also extended element by element to arrays. 
The ffiijfgd functions of Table 3.8, on the other hand, may be 
defined on vector arguments to yield a scalar result or a 
vector result, or may be defined on scalar arguments to 
yield a vector result. 

JfeSaSiS tcaoaEfiSS. The expression 6)A yields the array A 
with the coordinates interchanged. For a vector V and a 
matrix M, the following relations hold: 

«lV is equivalent to V 

isiM is the ordinary matrix transpose, that is, the 
rows of M are the columns of (s^lH, and vice versa. 
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Name 



Sign' 



Definition or example' 



Size 
Reshape 
Ravel 
Catenate 



VqA 
,A 



pP Ir-y H 



PE 



3 4 



P5 



Reshape A to dimension v 
12pB i-->- X 12 OpE *■->■ \0 

,A -<->• (^/pA)pA yE ■«->\12 



lO 

3 i+pil2 -^-^ E 

p , 5 -«->■ 1 



P, 1 2 -<--»■ 2 3 5 7 1 2 ^T^,^HIS^ ^-> ^ THIS^ 

PC 2] '<r->-3 P[4 3 2 1] ■(--►y 5 3 2 



Index 



VLAl 
MLAiAl 



ELI 3; 3 2 1] -f-^ 



3 
11 



2 
10 



EL1;1 ^^ 



' ABCDEFGHIJKL'LE'Ji 



ABCD 
EFGH 
IJKL 



Index 
generator 

Index of 



\S 



V\A 



First S integers 



Least index of A 
in V, or l + pF 



14 - 
\0 ■ 

Pi3 



12 3 4 

an empty vector 



PxE 



5 12 5 
3 5 4 5 



Take 



Drop 



VfA 

V-^A 



4 i+i4 ^ 
JTake or drop Will first 
(7CJ]>0) or last (7CI]<0) 
[elements of coordinate I 



5 5 



2 3fZ 



2 +P -«--»- 5 7 



5 5 



Grade up t 
Grade down 



IT 
^A 



The permutation which 
>would order A (ascend- 
ing or descending) 



i3532^-»-4132 
l73532-(-»-213'+ 



Compress 



Expand 



V/A 



V\A 



1 1 0/P 



1 l\i2 



2 5 



12 3 4 
9 10 11 12 



10 1 0/E -<--► 5 
9 
■ 1 1/-E 



10 2 



10 11 1\X 



3 

7 

11 



A BCD 
E FGH 
I JKL 



Reverse 



Rotate 



^A 
A(t>A 



<^X ^ 
3<|)P 



DCBA 
HGFE 
LKJI 



c|)P f-»- 7 5 3 2 



■t->- 7 2 3 5 ■*--> lij>P 



IJKL 

QX -f-^- EFGH 

ABCD 

BCD A 

1 ~1<^X -^-^ EFGH 

LIJK 



Transpose 



V!S)A 



<S)A 



t 



Coordinate I o£ i4 

becomes coordinate 

VLII of result l Ks^ff 



2 lisjj 
1 6 11 



Transpose last two coordinates 



IS)E 



A EI 

-H- SPJ- 

CGK 

DHL 

2 liSjfi' 



Membership 



AeA 



pWeY 
Pel 4 



pf/ 
110 



EeP 



110 

5 S U 



Decode 
Encode 



VlV 
VtS 



lOil 7 7 6 -*--> 1776 24 60 60x1 2 3 -t--^ 3723 
24 60 60T3723 -<-^- 1 2 3 60 60x3723 f-> 2 3 



Deal t 



S?S 



W?I 



Random deal of W elements from \Y 



Table 3.8: PRIMITIVE MIXED FUNCTIONS (see adjacent notes) 
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+. This function not available on APL\1130 



Restrictions on argument ranks are indicated by: S for 
scalar, V for vector, M for matrix, A for Any. Except as 
the first argument of S\A or SLAl, a scalar may be used 
instead of a vector. A one-element array may replace any 
scalar. 



2 . Arrays used 
in examples: 



2 3 5 7 



12 3 4 

5 6 7 8 
9 10 11 12 



ABCD 
EFGH 
IJKL 



Notes to Table 3.8 



BStste. If Jf is a scalar or one-element vector and X xs a. 

vector, then K^X is a cyclic rotation of X defined as 
follows: K^X is equal to ?[! + ( pX) Tl+X+ipj:] . For example, 

if jr-i-2 3 5 7 11, then 2^X is equal to 5 7 11 2 3, and ~2^X 

is equal to 7 11 2 3 5. 

If X is a matrix, rotation of each row may be specified 
in the form Zi-K^X , rotation of each column in the form 
Z-^K»X. For exan^le, for row rotation, if pX is 3 4 , then K 
must be a scalar or a vector of dimension 3 and ZCJ;] is 
equal to ifCl]it>X[J; ]. For column rotation, pK must be a 
scalar or a vector of dimension 4, and Zl;l2 is equal to 
XCI]<t)jrC;J]. For exan5)le: 



12 3 4 

5 6 7 8 

9 10 11 12 



12 39M 

1 6 11 4 

5 10 3 8 

9 2 7 12 



1 2 3(t>M 

2 3 4 1 

7 8 5 6 

12 9 10 11 



Beveias. If -f is a vector and flf-<tiZ, then i? is equal to X 
except that the elements appear in reverse order. Formally, 
B is equal to X[l+( pJ)- ipZ]. 

If -4 is a matrix, sA is like A except that the order of 
elements is reversed along the columns; in ^A , the order is 
reversed along the rows. For example: 



A 

2 3 
5 6 



4 5 
1 2 
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CfifflBTfiaa. The expression U/X denotes CQiSBreaBiQa of ^ by U. 
If U is a logical vector (coa^rising elements having only 
the values or 1) and X is a vector of the same dimension, 
then U/X produces a vector result of +/£/ elements chosen 
from those elements of X corresponding to non-zero eleaents 
of U. For example, if X->-2 3 5 7 11 and J/-H 110 then 
V/X is 2 5 7 and (~U)/X is 3 11. 

To be conformable, the dimensions of the arguments must 
agree, except that a scalar (or one-element vector) left 
argument is extended to apply to all elements ' of the right 
argument. Hence 1/X is equal to X and 0/^ is an en5>ty 
vector. A scalar right argument is not extended. The 
result in every case is a vector. 

If M is a matrix, then U^M denotes oonpression alsng 
the first coordinate, that is, the con^ression operates on 
each column vector and therefore deletes certain rows. It 
is called gQlussa conpression. Similarly, U/M denotes £SK 
coB^ression. The result in every case is a matrix. 

iSEBSQ^. Expansion is the converse of compression and is 
denoted by U\X. If Y*U\X, then U/Y is equal to X and (if X 
is a vector of numbers) (~y)/y is an array of zeros. In 
other words, U\X expands X to the form indicated by U, the 
elements of X assuming the positions of the qqss in V, and 
zeros filling in elsewhere. To be conformable, +/U must 
equal pX. 

If X is a vector of characters, then spaces are 
supplied rather than zeros, i.e., if Y->-U\X then (~U)/Y is an 
array of the space character ' '. Again, for matrices, f/\Af 
denotes expansion along the last coordinate, and U\M denotes 
expansion along the first. See Table 3.8 for examples of 
expansion. 

A scalar left argument is not extended. 

Decode. The expression RxX denotes the value of the vector 
X evaluated in a number system with radices 

flCl],fl[2] ifCpS], For example, if i?-t-24 60 60 and 

X-<-l 2 3 is a vector of elapsed time in hours, minutes, and 
seconds, then i?±X has the value 3723, and is the 
corresponding elapsed time in seconds. Similarly, 

10 10 10 10 1 1 7 7 6 is equal to 1776, and 222x101 is 
equal to 5. Formally, i?iX is equal to +/W^X, where W is the 
weighting vector determined as follows: WtpWl is equal to 
1, and WZI-ll is equal to Ril^xWill. For example, if R is 

24 50 60, then W is 3600 60 1. 

The result is a scalar. 
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The arguments R and X must be of the same dimension, 
except that either may be a scalar (or one-element vector) . 
For example, 10 i l 7 7 6 is equal to 1776. The arguments 
are not restricted to integer values. If X is a scalar, 
then XiC is the value of a polynomial in X with coefficients 
C, arranged in order of descending powers of X. 

The decode function is commonly applied in work with 
fixed-base number systems and is often called the base 
yaias function. 

EQSQSle. The eOSQliS function RiN denotes the representation 
of the scalar II in the base-i? number system. Thus, if 
Z-^BjN, then ( x/i?) |iV-i?j.Z is equal to zero. For example, 
2222T5is0101 and 222T5isl01 and 2 2 t 5 is 
1. The dimension of FtN is the dimension of R. The 
encode function is also called representation. 

IqSsx of. If 7 is a vector and S is a scalar, then J->-V\S 
yields the position of the earliest occurrence of S in v. 
If S does not equal any element of V, then j has the value 

1+pV. 

If S is a vector, then j is a vector such that JLIl is 
the index in V of S[J]. For example: 

'ABCDEFGH' \ 'GAFFE' 
7 15 6 5 

If X is a numerical vector, then the expression Xxf/X 
yields the index of the (first) maximum element in j. For 
example, if x is the vector 8 3 5 13 2 7 9, then [/x is 13 
and X\ [ /X is 4. 

The result in every case has the same dimensions as the 
righthand argument of i. For example, if Z-i-7iS, and 5 is a 
matrix, then Z[I;J"] is equal to V\SII;J^. 

Mesbership. The function XeY yields a logical array of the 
same dimension as X. Any particular element of XeY has the 
value 1 if the corresponding element of X belongs to y, that 
is, if it occurs as some element of Y. For example, 
(i7)e3 5 is equal to 0010100 and ' ABCDEFGH' €' COFFEE' 
equals OOlOlloo. 

If the vector U represents the universal set in some 
finite universe of discourse, then UcA is the characteristic 
of the set A , and the membership function is therefore also 
called the characteristic function. 
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The size of the result of the function « is determined 
by the size of the left argument, whereas the size of the 
result of the dyadic function i is determined by the size of 
the right argument. However, the left arguments of both 
frequently play the role of specifying the universe of 
discourse. 



Takg and dEop.* If 7 is a vector and 5 is a scalar between 

and p 7, then 5 + 7 iaisss the first S components of V. For 

example, if 7-<-i7, then 3 + 7 is 12 3 and + 7 is lO, and 8 + 7 
yields a domain error. 

If S is chosen from the set -ip7, then S+7 takes the 
last IS elements of 7. For exanple, 3 + 7 is 5 6 7. 

If 4 is an array, then WiA is valid only if W has one 
element for each dimension of A, and Will determines what is 
to be taken along the Jth coordinate of A. For exait^le, if 
A *- 3 4pil2, then 2 "3+4 is the matrix 



The function flrOE (+) is defined analogously, except 
that the indicated number of elements are dropped rather 
than taken. For example, "1 1+4 is the same matrix as the 
one displayed in the preceding paragraph. 

The rank of the result of the take and drop functions 
is the same as the rank of the right argument. The take and 
drop functions are similar to the transpose In that the left 
argument concerns the dimension vector of the right 
argument. 

SEade up and dQwn.* The function i7 produces the permutation 
which would order 7, that is Vlivi is in ascending order. 
For example, if 7 is the vector 7 1 16 5 3 9, then i7 is the 
vector 2 5 4 16 3, since 2 is the index of the first in 
rank, 5 is the index of the second in rank, and so on. The 
symbol i is formed by overstriking I and A. 

if P is a permutation vector, then iP is the 
permutation inverse to P. If a vector D contains duplicate 
elements, then the ranking among any set of equal elements 
is determined by their positions in D. For example, 

i537392is the vector 6 2 4 13 5. 



# These functions not available on APL\1130 
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The right argument of i may be any array A of rank 
greater than zero, and the coordinate J along which the 
grading is to be applied may be indicated by the usual 
notation ilJIA.. The form hA applies as usual to the last 
coordinate. The result of iA is of the same dimension as A. 

The grade down function 1? is the same as the function i 
except that the grading is determined in descending order. 
Because of the treatment of duplicate items, the expression 
A/(i7)=<t>tl' has the value 1 if and only if the elements of 
the vector V are all distinct. 

Deal. The function M?ff produces a vector of dimension M 
obtained by making M random selections, without replacement, 
from the population iff. In particular, N?N yields a random 
permutation of order N. Both arguments are limited to 
scalars or one-element arrays. 

CongBgnts.* The larrp symbol n, formed by overstriking n and 
■>, signifies that what follows it is a comment, for 
illumination only and not to be executed; it may occur only 
as the first character in a statement, but may be used in 
defined functions. 



MULTIPLE SPECIFICATION 

Specification (-(-) may (like any other function) occur 
repeatedly in a single statement. For example, the 
execution of the statement 2*XxA-i-3 will assign to A the 
value 3, then multiply this assigned value of A hy X and 
assign the resulting value to Z. 

Multiple specification i 
variables. For exaitple: 



s useful for initializing 



X-i-J-H+Z* 



sets X and j to 1 and 2 to 0. 

A branch may occur in a statement together with one or 
more specifications, provided that the branch is the last 
operation to be executed (i.e., the leftmost). For example, 

statement ^•5xiff>I-(-r+l first augments I, and then 



the 



branches to statement S i.t N exceeds the new value of I. 



# This function not available on APL\1130 
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In the expression Z-i-(4+S)x((7+0 ) it is immaterial 
whether the left or the right argument of the x is evaluated 
first, and hence no order is specified. The principle of no 
specified order in such cases is also applied when the 
expressions include specification. Since the order here is 
sometimes material, there is no guarantee which of two or 
more possible results will be produced. 

Suppose, for example, that A is assigned the value 5 
and the expression Z-i-(4-i-3)xyi is then executed. If the left 
argument of x is executed first, then A is assigned the 
value 3, the right argument then has the new value 3 and Z 
is finally assigned the value 9. If, on the other hand, the 
right argument is evaluated first it has the value 5 
initially assigned to A, the value 3 is then assigned to A 
and multiplied by the 5 to yield a value of 15 to be 
assigned to Z. 
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Appendix A 
SAMPLE TERMINAL SESSION 



)682 
HILLS SIGNED ON 



APL\1130 



12 

7 

1. tt 

1 1* 
"5 

CATS 



3x4 

X-s-Sxit 

X 

x+r 

144r"2 

P-t-l 2 3 4 

9 16 
Pxy_ 
"10 15 ~20 
e-<- ' CATS < 



18 



16 
24 



yz-s-5 

yzi-^5 

rz+jzi 

3+4x5+6 

V 

+ 5 + 6 

J-f-3 
J-i-4 

(j:xy)+4 

Jxy+4 



FUNDAMENTALS 

Entry automatically indented 
Response not indented 
X is assigned value of 
the expression 

Value of X typed out 
Negative sign for negative 
constants 



Exponential form of constant 

Four- element vector 

Functions apply element by element 

Scalar applies to all elements 

Character constant (4-element 
vector) 

Multi-character names 



Correction by backspace 
and linefeed 



Executed from right to left 
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X Y 


SYNTAX ERROR 




X y 




A 




XY 


VALUE 


ERROR. 




XY 




A 




4x3r5.1 


20.4 






(4x3)r5,l 


12 






4xr5.i 


24 






jr*i5 




X 


1 2 


3 4 5 




lO 




Yi-5-X 




Y 


4 3 


2 10 




xn 


4 3 


3 4 5 




X<Y 


1 1 






Entry of invalid expression 
Shows type of error committed 
Retypes invalid statement with 

caret where execution stopped 
Multi-character name (not ^xj) 

XY had not been assigned a value 

SCALAR FUNCTIONS 

Dyadic maximum 

Monadic ceiling 

Index generator fiinction 



Enpty vector 

prints as a blank line 
All scalar functions extend 

to vectors 



Relations produce 

logical (0 1) results 
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DEFINED FUNCTIONS 



[1] 
C2] 



10 

20 

Cl] 
[2] 



Z-t-((X*2) + J*2)*.5 

7 

3 F 4 

Pi-7 
Qi-(.P+1)F P~l 



14x3 F 1 

VBi-G A 
B-i-(.A>0)-A<0 
V 
G t 



Header (2 args and result) 
Function body 
Close of definition 
Execution of dyadic function F 



Use of F with expressions 
as arguments 



G is the signum function 
A and B are local variables 



X->- 
G X 



[1] 
C2] 



Vff A 

Pi-(.A>0)-A<0 

V 

H~6 

P 



Like G but has no explicit result 
P is a global variable 



J-<-ff 6 
VALUE:.:i,ERROR 
' y-t-fl "6 



Cl] 
[2] 
[3] 
[t] 
[5] 
[6] 
[7] 

6 

120 



VZ-^FAC N;! 

Zi-l 

Ji-0 

il:I*r+l 

->-OxiJ>ff 

Z-f-ZxJ 

->-Ll 

7 

FAC 3 

FAC 5 



T&FAC1-3 5 
X*-FAC 3 

F/ICCS] 1 

F4CCS] 1 

F4CC3] 2 

F>IC[5] 2 

F>1C[3J 3 

F4C7C53 6 

Fy4C[3] H 

^AFy}<:-^0 



H has no explicit result 

and hence produces a value 
error when used to right 
of assignment 

FAC is the factorial function 



LI becomes 3 at close of defn 
Branch to (out) or to next 

Branch to LI (that is, 3) 



Set trace on lines 3 and 5 of FAC 
Trace of FAC 



Reset trace control 
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[1] 
[2] 
[3] 
[t] 
[2] 
[5] 
[1] 
[1] 

[1] 
[2] 

[3] 

[t] 

[5] 
[6] 



N 



[5] 
[t,2] 
V 

Cl] 

[2] 

[3] 

[■*] 

[t.l] 

[5] 

V 

[6] 

8 36 
H 8 
4 



?G<-M GCD N 

Mi-M\N 

[1]G^W 

[ID] 

Gi-M 

[Q] 

fff-M GCD 

G*M 

M^M\N 

^■itxMsO 



3 6 GCD 4 4 

VGCD 

[4. 1]«,/V 

[Q] 

G^M GCD N 

a*-M 

Mi-M\li 

-)-4xAf*0 

ff-i-ff 

M,N 

-►l 



3 6 GCD 4 4 



Cl] 
C2] 
C3] 
[4] 
C5] 
C6] 



[7] 
[6] 



VGCOCD]V 

G^-M GCD N 

G*M 

M^M\N 

-<-4xM*0 

iV-f-G 

"IGCD 
C5] 



MECHANICS OF 
FUNCTION DEFINITION 

Greatest common divisor 

function based on the 
Euclidean algorithm 

Correction of line 1 
Resume with line 4 
Display line 1 

Display entire GCD Function 



Part of display. Does not close 

Enter line 5 

Close of definition 

Use of GCD 

4 is GCD of 36 and 44 

Reopen def (Use v and name only) 

Insert between 4 and 5 

Display entire function 



Line number not changed until 

close of defn 
End of display 
Close of definition 

Iterations printed by 

line 5 (was line 4.1) 
Final result 
Reopen, display, and close GCD 



Line numbers have been 

reassigned as integers 
Part of display 
Reopen definition of GCD 
Delete line 5 by linefeed 

Close definition 
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1Z*-ABC X 
[1] Z-i-(33xg+(Sx5)-6 

[2] [1D9] 

Cl] Z-i-( 33xe+(ifx5)-6 

/ 1/1 

Z-i-(3xe) + (rx5)-6 
[2] V 

FAC 5 
120 

) ERASE FAC 

FAC 5 
SYNTAX ERROR 

FAC 5 

A 

VZ-^BIN N 
111 LA:Z*-(.Z,0) + 0,Z 
C2] ->■£>} xff>pZV 

BIN 3 

BJffCl] L4:Z-c-(Z,0)tO,Z 

A 

Z-f-1 

-►l 

13 3 1 

BIN 4 
raiffff FifflOi? 
SJffCl] i4:Z-<-(Z,0) + 0,Z 

A 
)SI 

B Jff C 1 ] * 

+0 

VBJff[.l]Z-i-lV 

SJff 4 
14 6 4 1 

VBJffCDDV 
V Zi-BJiV ff 
[1] Z-s-1 

[23 LA:Z->-(Z,0) + 0,Z 
[3] +L4xif>pZ 
7 



A function to show line editing 

A line to be corrected 

Initiate edit of line 1 

Types line, stops ball under 9 

Slash deletes, digit inserts spaces 

Ball stops at first new 

space. Then enter ) T 
FAC still defined 

Erase function FAC 

Function FAC no longer exists 



An (erroneous) function for 
binonilal coefficients 



Suspended execution 

Assign value to Z 

Resume execution 

Binomial coefficients of order 3 

Same error (local variable Z 

does not retain its value) 

Display state indicator 
Suspended on line 1 of BIN 
Clear state indicator 
Insert line to initialize Z 
Execute revised function 

Display revised function 

and close definition 
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INPUT AND OUTPUT 



VMULT N;X;X 

[1] y->-?N 
[2] y 
[ 3 ] X-i-D 

C4] ->-oxia:='s' 

[5] ->-iX = x/I 

[6] 'WRONG, TRY AGAIN' 

[7] ->-3V 

MULT 12 12 

2 10 
D: 

37 
WRONG, TRY AGAIN 
D: 

20 
6 7 
D: 

<S< 

7Z-I-ENTER 
[ 1 ] Z*" 
[2] D-pZ 
[3] Z-f-Z.D 
[4] *2xD»pZ 
[5] 7 

Q->-ENTER 
THIS IS ALL 
CHARACTER INPUT 

Q 
THIS IS ALL CHARACTER INPUT 

Ni-5 

'NOTE: i' iN;' IS ' ; iff 
NOTE: \5 IS 1 2 3 4 5 



A multiplication drill 

pN random integers 

Print the random factors 

Keyboard input 

Stop if entry is the letter S 

Repeat if entry is correct product 

Prints if preceding branch fails 

Branch to 3 for retry - 

Drill for pairs in range 1 to 12 

Indicates that keyboard entry 
is awaited 



Entry of letter S stops drill 
Example of character (D) input 
Make Z an enpty vector 
D is the length of Z 
Append character keyboard entry 
Branch to 2 if length increased 
(i.e., entry was not enpty) 

Keyboard 

entries 
Empty input to terminate 
Display Q 



Mixed output statement 



RECTANGULAR ARRAYS 





Pi-2 3 5 7 






pP 


Dimension of P 


4 








fi-'OH MY' 


Character vector 




pr 




5 








P,P 


Catenation 


2 3 


5 7 2 3 5 7 
T,T 




OH MYOH MY 
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M*2 3p2 3 


5 7 11 13 




M 




2 


3 5 




7 11 13 






2 UpT 




OH M 






ion 


6pM 




2 3 


5 7 11 


13 


2 3 


5 7 11 
PC3] 


13 


5 


P£l 3 5] 




2 5 


11 
PC I 3] 




2 3 


5 
PCpP] 




13 


«[1;2] 




3 


MCI;] 




2 3 


5 

«H 1;3 2] 




5 


3 




5 


3 






Ai-< ABCDEFGHIJKLMNOPQ 




/ICW] 




BCE 






GKM 








4[«[1 1;3 


2]] 


EC 






EC 








«Cl;]->-15 3 


12 




M 




15 


3 12 




7 


11 13 





Reshape to produce a 2x3 matrix 
Display of an array of rank >l 

is preceded by a blank line 



A 2x1* matrix of characters 

A matrix reshaped to a vector 
Elements in row-major order 

Indexing (third element of P) 

A vector index 

The first three elements of P 

Last element of P 

Element in row 1, column 2 of M 

Row 1 of M 

Rows 1 and 1, columns 3 2 



The alphabet to Q 
A matrix index produces 
a matrix result 



Respecifying the first row of M 
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e-i-3 1 

PCCJ 
11 3 

see] 
1* 1 



5 2 4 6 



A permutation vector 
Permutation of P 

A new permutation 



9 
10 



13 5 

15 7 
13 12 



FUNCTIONS ON ARRAYS 



F-i-pspg 

M<-?3 3p9 
N<-?3 3p9 

7 
M 



Vector of 3 random integers (1-9) 
Random 3 by 3 matrix 
Random 3 by 3 matrix 



a 



1 

5 

5 

M+N 



Sum (element-by-element) 



100 



Mfff 

7 9 4 

5 8 6 

9 8 7 

Mill 


1 
110 






10 
14 

13 22 12 

+/« 
20 14 13 



Maximum 

Conparison 

Sum- reduction of V 
Product- reduction 

Sum over first coordinate of M 

(down columns) 
Sum over second coordinate of M 

(over rows) 



7 



Maximum over last coordinate 



M+.xff 



79 123 


81 


46 84 


58 


84 95 


55 


M+.<N 




111 




111 




2 3 2 




M+.X7 




51 25 56 





Ordinary matrix (t.x inner) 
product 



An inner product 



+.X inner product with vector 
right argument 
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y 

7 

yc . X , 5 



Outer product (times) 



2 4 6 8 

1 2 3 M 

7 14 21 28 

r».Si9 



10 

5 

35 



Outer product 



1 

1 1 




1 1 
1 1 





1 1 
1 1 

1 



MIXED FUNCTIONS 



e-i-?iop5 
e 

4 3 4 5 4 

+ /C''.=l5 
2 14 1 



A random 10 element vector 
(range 1 to 5) 

Ith element of result is number 
of occurences of the 
value I in Q 

Ordinary transpose of M 
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Il(345it21'*2 
H5421t21t3 

Ilt21t3t542 

1 20M 

7 8 7 
5 5 1 
19 1 

9 4 7 

8 15 
5 7 1 

1 2 3*M 

9 t 7 
15 8 
15 7 

2itl2i+5t3tl 
eM 

15 7 
5 8 1 
7 9 4 

4 9 7 
18 5 
7 5 1 



Rotate to left by 3 places 

Rotate to right by 3 places 

Rotate columns by 

different amounts 



Rotation of rows all 
by 2 to right 



Rotation of rows 



Reversal of Q 



Reversal of M along 

first coordinate 



Reversal along last coordinate 
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U 
0000100000 

U/Q 
5 

(~V)/Q 
1431+42142 

+/f//e 

5 

1 0, l/M 

7 9 4 
15 7 

1 1/M 

7 4 
5 1 
1 7 

( ,M>5)/ ,M 
7 9 8 7 

fi-l 10 1 
V\\3 
10 2 3 



Compression of Q by logical 

vector U 
Compression by not U 



Compression along first 
coordinate of M 



Compression along last 
coordinate 



,Mis 794581157 

All elements of M which exceed 5 

Expansion of iota 3 

Expansion of rows of M 



7 9 4 
5 8 1 
10 5 7 

V\<ABC' 
ABC 

lOll 7 7 6 
1776 

811 7 7 6 
1022 

(4plO)T1776 
17 7 6 

( 3plO)T1776 
7 7 6 

10 10T1775 
7 6 

10T1776 
6 

24 60 50il 3 25 
3805 

24 60 60T3805 
1 3 25 

.211 110 
22 



Expansion of literal vector 

inserts spaces 
Base 10 value of vector 17 7 6 

Base 8 value of 1 7 7 6 

4 digit base 10 representation 

of number 1776 
3 digit base 10 representation 

of 1776 



Mixed base value of 1 3 25 

(time radix) 
Representation of number 3805 

in time radix 
Base 2 value 
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2 3 


5 7 11 
Pl7 


13 


H 


Pi 6 




1 


Pll* 5 6 7 




7 3 


7 t 






e-^5 13 2 


4 




fl-<-e 1 1 p e 






s 




2 4 


3 5 1 




1 2 


3 4 5 






A^ < ABCDEFGHIJKLMNOPQ 




A*A,'RSTUVWXYZ< 




A 




abcvefghijklmnopqrstvvwxyz 




/li'C" 




3 


JirAx 'CAT' 
J 




3 1 


20 
AlJ-i 




C^T 







Index of 7 in vector P 
7 is 4th element of P 
6 does not occur in P, hence 
result is 1+pP 



A permutation vector 

R is the permutation inverse to Q 



A is the alphabet 

Rank of letter C in alphabet is 3 
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M^3 5p 


TBREESHORTWORDS 




M 






TBRBE 








SHORT 








WORDS 


J-^AiM 
J 






20 


8 18 


5 


5 


19 


8 15 


18 


20 


23 


15 18 

Atj:\ 


4 


19 


THREE 








SHORT 








WORDS 









A matrix of characters 



Ranking of M produces a matrix 



Indexing by a matrix produces 
a matrix 



U->-Ac'!IOW IS THE TIME' 

•01'[1 + C/] 
00001001100011100011001000 

U/A 
EHIMNOSTW 

( i8)e3 7 5 
00101010 



Membership 



106 



BIBLIOGRAPHY 
^"'^2o!i697-0~^^"-- ^^^'^^' "» corporation, 1968, Form 

^""^^f^LXaso:' ^M s^^'J'^^"^^^' '^^^ implementation of 
AonH«H i, 4-K^- ^IXSESSiuin on ExEerimental Systems for 
^Eiied Mathematics, Academic PresiT 19687 -^"-^ "-- 

Falkoff, A.D., and K.E. Iverson "The. nDT^ocn m 

Iverson, K.E., ^ EagEaffloiag Languagg, Wiley, 1962. 

'^^r^^tme^if-Scief^f^^lSeh^f^l?^?-., 11,^. ^^^^^^^^ 
^''"lao6r=*^,-n 'l^^ '*°^^ °^ Computers in Teaching", Queen's 

f^s Mi,|-ft.f liflililf eiiff fill: -"^?3f 

''"'A^sooilteiT-^llf. -----'-^^^- -^^^^^i' ^=""- ^— =»> 



^"^"i^lica;^;; -|--^-i^ ^' ^ ml statistical Package, 
Publication No; 9, Department of cSSSutin^ sSiifcl 
University of Alberta, Edmonton, Canada/iges! ' °'-^"°^' 

"'''M^S;-Hili: 19-6l?i^-^i -"^^-"-^^-^ ^^-^-^^'^ E-riS_cipl._s, 



107 



